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PREFACE 



This publication discusses the operation 
of the graphic subroutine package (GSP) 
routines that constitute the graphic pro- 
gramming services for FORTRAN IV. 

The publication is organized into three 
sections. The first section describes the 
overall structure of GSP and, explains 
operations (such as initialization and pa- 
rameter testing) that are performed simi- 
larly by many of the GSP routines. The 
second section discusses the program organ- 
ization, including functions and logic of 
GSP routines. The third section contains 
flowcharts for the GSP routines. 

Appendixes at the end of this publica- 
tion provide information pertaining to the 
control blocks created by GSP routines, a 
module directory, and other reference 
material related to the program. 

For detailed information about program- 
ming techniques used in these routines, 
refer to the applicable program listings. 
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INTRODUCTION 



The graphic programming services for 
FORTRAN IV, called the graphic subroutine 
package (G5P) f enable displays to be pro- 
duced on one or more IBM 2250 Display Units 
attached to an IBM System/360 Computing 
System. These services are also usable 
with the assembler language. 



CHARACTERISTICS OF GSP ROUTINES 

GSP consists of subroutines and func- 
tions that can be included in a FORTRAN 
program, and internal routines that perform 
when certain subroutines and functions are 
executed. 



Location 



The module directory in Appendix B lists 
the method of entry for each GSP routine. 

Level of Support 

GSP offers two levels of support in 
regard to keying and correlating features. 
The term level 1 refers to the standard GSP 
keying and correlating features, and the 
term level 2 refers to a programmer- defined 
correlation scheme. The level under which 
a routine is functioning may affect the 
action taken at specific points in the 
operation. For additional information on 
these two levels, refer to the publication 
IBM System/360 Operating System; Graphic 
Programming Services for FORTRAN IV , Form 
C27-6932. 



Three of the GSP routines (INGSP Part 1, 
Director Part 1, and TMGSP Part 1) reside 
in the FORTRAN library (SYS1.FORTLIB) . All 
other GSP routines reside in the link 
library (SYS1.LINKLIB) . The routines in 
the FORTRAN library are processed by the 
linkage editor at the same time the user's 
program is processed by the linkage editor. 
Therefore, these routines remain in main 
storage throughout execution of the user's 
program and are known as resident modules. 

Attributes 

All routines have the same two attri- 
butes: (1) problem program mode, and (2) 
reenterable coding. Main storage areas 
acquired by GSP routines are allocated from 
subpool zero. 

Methods of Passing Control 

The routines that reside in the link 
library are brought into main storage eith- 
er by a LINK or a LOAD macro instruction. 
Control is passed to the routine in one of 
two ways : 

1. LINK causes control to be passed to 
the routine automatically. 

2. LOAD brings the routine into storage; 
a CALL macro instruction is then 
issued to pass control to it. 



A copy of a routine brought into main 
storage via a LOAD macro instruction 
remains in main storage until the use of 
GSP is terminated. A copy of a routine 
brought into main storage via a LINK macro 
instruction is removed from main storage 
once its execution has been completed. 



CONTROL FLOW AMONG GSP ROUTINES 

All GSP subroutines are invoked by a 
CALL statement that is issued in the user's 
program. All of the subroutines (except 
INGSP and TMGSP) receive control through 
the Director. Figure 1 depicts linkage 
from a CALL statement to a GSP subroutine, 
which in turn calls another routine (called 
an external reference) to complete its 
function. The figure also shows the path 
taken when control is returned to the 
calling routine (calling program) . 

In Figure 1, subroutine A is called from 
the user's program. From the CALL state- 
ment, control is passed to Director Part 1 
which computes the internal entry point for 
the called subroutine and passes control to 
Director Part 2. Director Part 2 accesses 
the status table to determine if the rou- 
tine is already in main storage or if it 
must be brought into main storage, brings 
the routine into main storage if necessary, 
designates a work area to be used by the 
routine, and passes control to the routine 
(in this case. A) . If A calls another 
routine (in this case, B) , it also accesses 
the status table to determine the location 
of the routine, brings the routine into 
main storage if necessary, constructs a 
parameter list for that routine, and passes 
control to the routine. 

Once control has passed from Director 
Part 2, control is always returned from the 
called routine to the next sequential 
instruction in the routine that called it. 
This culminates in control being returned 
back to Director Part 2 which in turn 
passes control to the next sequential 
instruction in the user's program. Control 
is never returned to Director Part 1. 
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Figure 1. Linkage from a CALL to a GSP Subroutine that Uses Another GSP Routine 



Table 1 shows the relationship between 
the routine that is called to perform a 
function and other GSP routines (external 
references) that it calls to perform the 
complete operation. The GSP routines 
called are listed alphabetically down the 
first column. External references are 
listed across the top of the table. Those 
routines not listed perform their complete 
operation without referring to GSP external 
references during processing. 

Control flow among the initiation and 
termination subroutines, and among the 
image generation subroutines is described 
in the sections "Initiation and Termination 
of GSP" and "Image Generation Subroutines," 
respectively . 



INPUT TO MANY GSP SUBROUTINES 

Input to GSP subroutines consists of a 
variable length parameter list that is set 
up when the user issues a call to any GSP 
subroutine. This list consists of full- 
word entries containing the addresses of 
the arguments specified by the user. 



All GSP subroutines except INGSP and 
TMGSP receive the address of a work/save 
area in register 1. The first word of this 
area contains the address of the parameter 
list described here. 



CONTROL BLOCKS AND TABLES USED BY GSP 

To establish communication links between 
the user's program, GSP, and each 2250 
Display Unit, several control blocks and 
tables are created and used by GSP. The 
control blocks and tables created, 
initialized, and used during the processing 
of GSP subroutines are described briefly in 
the paragraphs that follow. 

GSP control blocks, for which the for- 
mats and contents are described in Appendix 
A, are: 

• Graphic subroutine package control 
block (GSPCB) , which is constructed by 
INGSP for communication between the 
user's program and GSP subroutines; 
only one of these control blocks should 
exist. 



Table 1. GSP External References and Relationship 
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Table 1. GSP External References and Relationship (continued) 

r t 
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Graphic terminal control block (GTMCB) , 
which is constructed by INDEV for each 
2 250 identified by the user. 



Graphic data set control block (GDSCB) , 
which is constructed by INGDS for each 
graphic data set (GDS) that is initial- 
ized for a 2250. 



Graphic attention control block (GACB) , 
which is necessary for attention han- 
dling. Two of these are created, acti- 
vated, and used for each 2250; one for 
the use of most GSP attention related 
subroutines and one for the Panic Key 
routine. The GACB is described in the 
publication IBM System/360 Operating 
System; Graphics Access Method, Program 
Logic Manual . Form Y27-7113. GSP 
appends eight bytes of information to 
the beginning of the GACB. These 
appendages are described in Appendix A. 

Output area control block (OACB) , which 
is constructed to contain information 
regarding the graphic data output area 
(GDOA) . Two are created per GDS, one 
for each GDOA. 

Attention level control block (ATLCB) , 
which is required for attention han- 
dling and is constructed for each 
attention level specified by the user. 

Attention data entry queue (ADEQ) , 
which is attached to the ATLCB and is 
used for attention information data. 
Several ADEQs follow each ATLCB. 



Three tables are created by GSP rou- 
tines. They are described in the section 
"Internal Routines." Tables used for con- 
trolling certain functions performed by GSP 
routines are: 



Buffer control table (BCT) , which is 
initialized for use by Buffer Manage- 
ment when buffer sections are assigned 
or released. One BCT exists for each 
2250. 



• Flow control table (FCT) , which is 
initialized for use by Flow Control 
Management in organizing and maintain- 
ing information about the regeneration 
sequence of GDSs. One FCT exists for 
each 2250. 

• Key table, which is constructed by Key 
Table Management for each level 1 GDS 
using key and/or correlation facilities 
to contain keys and correlation values 
specified by the user. 

In addition, there are several control 
blocks which are required for graphic pro- 
gramming services, and are described in 
detail in the publications: IBM System/360 
Operating System: Graphic Programming Ser- 
vices for IBM 2250 Display Unit . Form 
C27-6909 and IBM System/360 Operating Sys- 
tem: Graphics Access Method, Program Logic 
Manual . Form Y27-7113. These control 
blocks are: 



Data control block (DCB) , which 
created for each 2250 initialized. 
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Data event control block (DECB) , which 
is a parameter list used for overlapped 
input/ output operations. That is f 
while the contents of one output area 
are being written to the buffer, anoth- 
er output area is being filled with 
data. 



Graphic data output area (GDOA) , which 
is initialized for use in input/output 
operations. To facilitate input/output 
overlap, defined above, two of these 
GEOAs are acquired for each GDS. 



• Communication area (COMAREA) , which is 
related to attention handling. One 
COMAREA is required for each GACB to 
contain attention information when an 
attention occurs. 

Finally, there is one control block for 
GSP which represents its own GDS. It is: 



• System GDSCB, which is constructed for 
GSP, and is used by the light pen 
subroutines. Its format is the same as 
the GDSCB created for the user's GDS. 
It is always the first GDSCB created in 
the chain of GDSCBs. 



Formats and Main Storage Arrangements 

Detailed formats of all GSP control 
blocks except the BCT, FCT, and key table 
are contained in Appendix A. The BCT, FCT, 
and key table are described in detail in 
"Buffer Management," "Flow Control Manage- 
ment," and "Key Table Management" respec- 
tively. 



Figure 2 depicts the subroutines that 
establish the control blocks, shows these 
blocks as they are arranged in main stor- 
age, and indicates the pointers contained 
in the various blocks. 
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Figure 2. Control Blocks Created and Used by GSP 
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Attention Queue 
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ATLCB Chain 



Bottom of 
GTMCB Chain 



Bottom of 
GDSCB Chain 



Figure 3. Relationship and Chaining of GSP Control Blocks 
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Chaining 

Chaining of control blocks is accom- 
plished by placing the appropriate address- 
es (or zero) in the fields designated as 
forward pointers and/or backward pointers. 
These fields are manipulated at the time a 
control block is created. An address in 
the field refers to the next control block 
of the same type, or to a related control 
block. A value of zero in the field 
indicates the end of a series of control 
blocks. 

Figure 3 shows the relationship of the 
various GSP control blocks and how control 
blocks of the same type are chained. 

The numbers 1 through H after GTMCB, 
GDSCB, and ATLCB represent four control 
blocks of each type in the order they were 
created. In all cases, the fourth control 
block is the most recently created one. 
GDSCB2 and GDSCB3 represent equivalent 
GDSs. 

The numbers following ADEQ represent the 
data queues that are attached to each 
ATLCB. In this case, ADEQ7 already con- 
tains attention information. The remaining 
ADEQs are available to accept attention 
inf or mat ion . 



Setting the return code array, which is 
used by every subroutine to pass infor- 
mation to the user, to zero before 
processing is begun by the routine. 
This array, called the GSPARRAY, is 
located in the GSPCB. This function is 
not performed by the internal routines. 



Chaining the 
together. 



register 



save 



areas 



Testing parameters for 
"Testing Parameters") . 



validity (see 



All these functions, linkages, and reg- 
ister usage are in accordance with standard 
IBM System/360 Operating System conven- 
tions . 



Testing Parameters 

All GSP subroutines test parameters that 
have been passed to them before any pro- 
cessing is done. Any parameter error 
encountered during these tests causes con- 
trol to be returned to the calling program 
with the appropriate return code and addi- 
tional information, if applicable, in the 
return code array. For further information 
about return codes, see "Passing Return 
Codes" in this section. 



Whenever a new control block is added to 
the GTMCB, GDSCB, or ATLCB chain, it is 
inserted at the bottom of the chain, and 
the pointers to the bottom of the chain are 

updated. 



OPERATIONS PERFORMED BY ALL GSP ROUTINES 

Certain operations are performed by all 
GSP subroutines and related internal rou- 
tines. These operations are described in 
the paragraphs that follow, rather than 
being included in the description of each 
routine. 

Initialization 

All GSP routines perform certain prepar- 
atory functions before performing the main 
processing function. These preparatory 
functions, called initialization , consist 
of: 



Saving register contents upon entry 
the routine. 



to 



Establishing addressability of the rou- 
tine by defining a base register. 

Establishing addressability of one or 
more of the four major control blocks 
(GSPCB, GTMCB, GDSCB, and ATLCB) by the 
use of DSECTs and the USING statement. 



The validity of "gspname", "devicename" , 
"gdsname" , or "attnlevel" is determined by 
accessing the actual value of the specified 
variable. This value should point to one 
of four control blocks (GSPCB, GTMCB, 
GDSCB, or ATLCB). Figure 4 depicts the 
method of accessing control blocks. Each 
control block contains an identification 
field, which is tested to determine the 
validity and type of the control block. 



Register 1 








Work Area 




Parameter List 




Variable 






A (parameter list) 




A (variable) 




A (GSPCB) 














Other 
parameters 




(GTMCB) 

or 
(GDSCB) 

(ATLCB) 



Figure 4. Accessing a Control Block 



Introduction 



13 



Passing Return Codes 

Before returning control to the user's 
program, each subroutine makes a return 
code available to that program. These 
return codes and additional information are 
always placed in the GSPARRAY field located 
in the GSPCB. The GSP return code struc- 
ture is described in detail in Appendix A. 

Return codes and their meanings are 
described in the publication IBM System/360 
Operating System: Graphic Programming Ser- 
vices for FORTRAN IV , Form C27-6932. 

Internal routines in GSP and other 
externally referred to routines used by GSP 
subroutines pass a return code in register 
15. A return code other than zero indi- 
cates that an error was encountered during 
processing. 

After an internal or externally referred 
to routine has returned control to the GSP 
subroutine, any error code in register 15 
is translated into a GSP return code, which 
is placed in the GSPARRAY. In many cases, 
the internal routines themselves place the 
appropriate return code in the GSPARRAY. 
If this is done, the GSP subroutine usually 
returns control to the calling program 
after any resetting function required has 
been accomplished. An exception occurs 
when image generation is to continue after 
the scissoring option has been applied. 



MACRO INSTRUCTIONS USED BY GSP 

The routines described in this publica- 
tion use operating system macro instruc- 



tions and Graphics Access 
macro instructions. 



Method (GAM) 



Operating System Macro Instructions 

Whenever the LOAD, LINK, CALL, SAVE, 
DELETE, GETMAIN, FREEMAIN, WAIT, DCB, OPEN, 
or CLOSE macro instruction is issued, con- 
trol is given directly to the operating 
system to perform the required operation. 
The DCB, OPEN, and CLOSE macro instructions 
also cause control to be passed to the 
applicable GAM routines from the operating 
system. Whenever the RETURN macro instruc- 
tion is issued, control is returned to the 
calling proqram. If an ABEND macro 
instruction is issued, the task is abnor- 
mally terminated. For a description of 
these macro instructions, refer to the 
publication IBM System/360 Operating Sys- 
tem; Supervisor and Data Management Macro 
Instructions , Form C28-6647. 

Graphics Access Method (GAM) Macro 
Instructions 

Whenever the ASGNBFR, RLSEBFR, GREAD, 
GWRITE, GREADR, GCNTRL, SAEC, SPAR, 
ATTNINQ, or DAR macro instruction is 
issued, control is given directly to the 
GAM routines to perform the desired opera- 
tion. For a description of these macro 
instructions and the graphic orders used by 
GSP, refer to the publication IBM 
System/360 Operating System; Graphic Pro- 
gramming Services for IBM 2250 Display 
Unit , Form C27-6909. The GAM routines are 
described in the publication IBM System/360 
Operating System; Graphics Access Method, 
Program Logic Manual , Form Y27-7113. 
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PROGRAM ORGANIZATION 



The detailed organization of all the 
routines (modules) in GSP is described in 
this section. Each module description 
includes the following information: 

• Module name (identification) for each 
routine is included in the heading for 
that particular routine. 

• Chart identification ( s) , where flow- 
charts are included for the module. 
These flowcharts appear in the next 
section of this publication. 

• Function , which states the routine's 
overall purpose(s). 

• Entry point (s) and from which 
routine (s) it is entered. 

• Exit , which states where the routine 
returns control. 

• IHfiut, which defines the information 
passed by the user or another routine 
to be used by this routine. 

• Output that is passed or made available 
to the caller. 

• Operation , which describes the manner 
in which this routine performs its 
function. 

GSP subroutines and functions are divid- 
ed into several areas according to the 
operations they perform. These areas are: 

1. Initiation and termination 

2. Generation and modification of a dis- 
play 

3. Keyboard input and buffer data analy- 
sis 

4. Communication between the operator and 
the program 

5. Testing the status of subroutines 

6. Producing characters without using the 
2250 character generator 

7. Eirect generation of graphic orders 

8. Converting coordinates 

This publication is organized to de- 
scribe the subroutines in this manner. In 
addition, the internal routines for GSP, 
which are not directly invoked by the 



user's program, are 
"Internal Routines." 



described under 



INITIATION AND TERMINATION OF GSP 

Initiation and termination procedures 
for GSP are performed by three resident 
modules, six subroutines, an internal rou- 
tine, and a status table. The resident 
modules function when a GSP subroutine is 
called. The six subroutines serve to ini- 
tialize and terminate the use of GSP, a 
2250, and a GDS. The internal routine. 
Director Part 2, controls entry into most 
of the subroutines by using the status 
table . 

Figure 5 depicts the linkage from the 
user's program to the initiation and termi- 
nation subroutines. The figure includes 
the resident modules and shows the rela- 
tionship of all routines or modules that 
function during initiation and termination 
procedures. It also shows the routines 
that are loaded at initiation time. 

All subroutines that are called in the 
user's program except INGSP and TMGSP 
receive control via Director Part 1 and 
Director Part 2. After all processing is 
complete, control is returned to Director 
Part 2 via the same path through which it 
was passed. Director Part 2 then returns 
control to the next sequential instruction 
in the user's program. This is explained 
in the section "Control Flow Among GSP 
Routines . " 



RESIDENT MODULES 

To perform its total function, each 
resident module invokes Part 2 of its 
counterpart, which is described under 
"Initiation and Termination Subroutines" or 
"Internal Director" in this section. 

The resident modules consist of: 

• INGSP Part 1, which initializes the use 
of GSP. 

• Director Part 1, which passes the entry 
number of the called subroutine to 
Director Part 2, so that the location 
and status of the subroutine can be 
determined . 

• TMGSP Part 1, which terminates the use 
of GSP. 
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INGSP Part 1 (Module Name IHCGSP01) 



Chart: None 

Function : Obtains storage for the construc- 
tion cf the GSPCB and for save and work 
areas. Links to INGSP Part 2. Upon return 
of control from INGSP Part 2, frees 
work/save area obtained for use of INGSP. 
Retains other storage (GSPCB and work area) 
that it had obtained for use by other GSP 
routines . 

Entry : INGSP from a call to the INGSP 
subroutine. 

Exit : To the calling program. 

Input : In register 1, the address of a 
parameter list specified by the user in the 
call to the INGSP subroutine. 

Output : To INGSP Part 2, in register 1, the 
address of the first byte of the main 
storage area obtained by this routine. The 
first word in this area contains the 
address of the parameter list received as 
input. To the calling program, the address 
of the GSPCB which was placed in the 
user- specified variable by INGSP Part 2. 

Operation : See "Function" above. 

Dir ector Part 1 (Module Name IHCGSP03) 



Chart: None 

Function: Locates Director Part 2, and 
branches to it to accomplish entry into the 
desired subroutine. Once Director Part 1 
relinquishes control, control is not 
returned to it until another GSP subroutine 
is called. 

Entry : From a call to any GSP subroutine, 
except INGSP or TMGSP. Entry is made into 
a table of entries, called the GSP directo- 
ry , which contains branch instructions to 
the main body of executable instructions in 
Director Part 1. 

Exit : To Director Part 2. 

Input : In register 1, the address of a 
parameter list specified by the user in a 
call to a GSP subroutine (other than INGSP 
or TMGSP) . The first word of the parameter 
list points to a variable that contains the 
address of a GSP control block (GSPCB, 
GTMCB, GDSCB, or ATLCB) as shown in Figure 
4. This first word is the only parameter 
used ty Director Part 1. 

Output: In register 1, the address of the 
parameter list received as input. In reg- 
ister 2, the address of the GSPCB. In 



register 3, the entry number of the 
requested GSP subroutine. 

Operation : The GSP directory is used to 
resolve the actual subroutine entry 
requested by this call. This directory 
contains the name of every GSP subroutine 
(no internal routines) except INGSP and 
TMGSP. Each name is identified as an 
entry, and is followed by a branch instruc- 
tion that passes control to the executable 
instructions in Director Part 1. Effec- 
tively, the GSP directory causes the 
address of the location of the requested 
subroutine name in the table to be placed 
in register 15. This address is later used 
to determine the entry number that is 
passed to Director Part 2. (See "Director 
Part 2" and "Status Table.") 

Once entry is made to the main execut- 
able instructions in Director Part 1, the 
first parameter in the input list is 
accessed, the address of the specified 
control block is found, and the control 
block is tested for validity and type 
(i.e., GSPCB, GTMCB, GDSCB, or ATLCB). 
Figure H shows how the control block is 
accessed. Depending on the type of control 
block located, the address of the GSPCB is 
obtained by accessing pointers in the 
appropriate control block fields. If the 
first parameter is not a GSP control block, 
the value of this parameter is set to zero, 
and control is returned immediately to the 
calling program. If the first parameter is 
valid, the entry number of the subroutine 
is computed. This entry number is used by 
Director Part 2 to locate the GSP subrou- 
tine entry in the status table (described 
in this section under "Status Table"). 
Control is then passed to Director Part 2. 



TMGSP Part 1 (Module Name IHCGSP02) 



Chart: None 



Function : Links to TMGSP Part 2 to perform 
termination functions. Upon return of con- 
trol, it deletes any stroke tables that 
have been loaded, the status table, and 
Director Part 2. It also frees main stor- 
age used for the GSPCB and the work/save 
area. 

Entry : TMGSP from a call to the TMGSP 
subroutine. 

Exit : To the calling program. 

Input : In register 1, the address of a 
parameter list that contains the address of 
the variable that in turn contains the 
address of the GSPCB. 
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Output ; To TMGSP Part 2, in register 6, the 
address of the GSPCB. To the calling 
program, there is no output. 

Operation ; TMGSP Part 1 tests the GSPCB for 
validity. If it is valid, the routine 
proceeds as described under "Function" 
above. If the GSPCB is invalid, the value 
of the parameter is set to zero, and 
control is returned immediately to the 
calling program. 



INTERNAL DIRECTOR 

The internal director, which is divided 
into two parts. Director Part 1 and Direc- 
tor Part 2, handles the function of passing 
control to the proper GSP subroutine when- 
ever one is called. Director Part 1 is 
described in this section under "Resident 
Modules." Director Part 2 works in con- 
junction with the status table also de- 
scribed in this section. 

Director Part 2 (Module Name IFFAHA11) 



Chart ; None 

Function ; Performs interface functions 
between the calling program and GSP subrou- 
tines as follows: 

• Determines via information in the sta- 
tus table whether the requested GSP 
subroutine should be linked, called, or 
loaded and called, and passes control 
to the subroutine. If the subroutine 
is loaded by Director Part 2, it places 
the entry point address in the status 
table. 



Passes the address of a work area 
the subroutine (see "Output"). 



to 



Indicates upon entry to a GSP subrou- 
tine that GSP is busy, and upon return 
of control from the subroutine, that 
GSP is not busy. The GSPBUSYS field in 
the GSPCB is used for this purpose. 

Upon return of control from any GSP 
subroutine, the GSPDUMP and GSPABEND 
fields in the GSPCB are appropriately 
set each time by Director Part 2. It 
also tests the return code in the 
GSPARRAY field. If this return code is 
equal to or greater than the absolute 
value of the null variable, the routine 
issues the ABEND macro instruction with 
appropriate completion code. If the 
null variable contains a value of zero, 
this routine treats it as a value of 
one. If the null variable contains a 
value of six or greater, no ABEND macro 
instruction is issued. 



• Returns control to the next sequential 
instruction in the user's program if 
processing is to continue after the 
requested GSP subroutine completed its 
execution. 

Entry ; IFFAHA11 from Director Part 1. 

Exit ; Normally, to the user's program. 
However, under certain conditions the pro- 
gram is abnormally terminated. 

Input ; In register 1, the address of the 
parameter list specified by the user in the 
call to a GSP subroutine. In register 2, 
the address of the GSPCB. In register 3, 
the entry number of the requested GSP 
subroutine . 

Output : In register 1, the address of a 
work area. This work area contains the 
address of the parameter list and the 
address of the return code array (GSPARRAY) 
as shown in Figure 6. 

If the ABEND macro instruction is issued 
upon return of control from a GSP subrou- 
tine, a dump will be furnished when the 
null variable contains a negative value. 
No dump is furnished if the null variable 
contains a positive value. Register 2 
contains the address of the status table 
entry last invoked. Register 3 contains 
the address of the GSPARRAY field in the 
GSPCB. 

Operation ; See "Function" above. 



Regi 


ster 1 






Parameter List 






A (control block pointer) 














Work Area 




Other parameters 






A (user's parameter list) 














A (return code array) 
























GSPCB 
















Return Code Array (GSPARRAY) 











Figure 6, 



Output to GSP Subroutines from 
Director Part 2 



Status Table (Module Name IFFAHA12) 

The status table is an "only loadable" 
module residing in the SYS1.LINKLIB and 
loaded by INGSP Part 2. Whenever a GSP 



18 



subroutine is called. Director 
refers to it as explained earlier. 



Part 



The status table consists of 12-byte 
entries for each GSP subroutine and inter- 
nal routine. These 12 bytes contain three 
fields of information about each routine, 
as follows: 

+0 Address of the entry point for the 
routine, which is zero initially. 
When the module is brought into stor- 
age by a LOAD macro instruction, the 
entry point address is placed in this 
field. If a module is linked to, this 
field remains zero. 

+4 Module identification which consists 
of the last four characters of the 
module name. For example, "AA03" 
would identify INDEV (module name 
IFFAAA03). 



The subroutines described herein are: 

• INGSP Part 2, which completes initiali- 
zation of GSP. 

• INDEV, which establishes communication 
links between the 2250 and GSP. 

• INGDS, which creates a GDS and asso- 
ciates it with a 2250. 

• TMGDS, which terminates the use of a 
particular GDS. 

• TMDEV, which terminates the use of a 
2250 and all GDSs associated with it. 

• TMGSP Part 2, which terminates the use 
of GSP in conjunction with TMGSP Part 
1. 

INGSP Part 2 (Module Name IFFAAA01) 



+8 Flag in the first byte that indicates 
the proper linkage for this module, as 
follows : 

X'Ol' - LINK 

X , 02 i - LOAD and CALL 

The remaining three bytes contain 
zeros . 



Note: The linkage (method of entry) for 
each GSP module as contained in the status 
table is given in the module directory in 
Appendix B. 

Typical status table entries are shown 
in Figure 7, which depicts the entries for 
ICURS and SDATM. 



— H bytes 

A(EP Of ICURS) 



> 

T 



| C^DAOa* 

I X , 02' I 



000000 



^ X 

I Zero (module is linked to) 



j C'EAOl* 

| X"01* | 000000 

Figure 7. Status Table Entries 
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INITIATION AND TERMINATION SUBROUTINES 

These subroutines create and delete con- 
trol blocks, tables, and work areas used 
throughout the processing of the program 
for communication among the subroutines. 
Detailed descriptions and formats of the 
control blocks are contained in Appendix A. 



Chart : None 

Function : Initializes the GSPCB. As part 
of the initialization, the address of the 
null variable is placed in the GSPCB and 
the status table and Director Part 2 are 
loaded. 

Entry : IFFAAA01 from INGSP Part 1. 

Exit : To the calling program. 

Input : In register 1, the address of the 
main storage area where the GSPCB is to be 
built. The first word in this area con- 
tains the address of the parameter list 
specified by the user in the call to the 
INGSP subroutine. 

Output : The GSPCB is initialized and its 
address is placed in the user-specified 
variable ("gspname") which is the first 
parameter. 

Operation : The address of the null variable 
is obtained from the parameter list and 
placed in the GSPCB. If the null variable 
is not specified, the value of the user's 
variable that points to the GDSCB is set to 
zero and control is returned immediately to 
the calling program. 

If more than two parameters are speci- 
fied, the additional parameters are 
ignored. 

Next, the GSPCB address (in register 1) 
is placed in the user-specified variable, 
and the fields in that GSPCB are filled in. 
The status table and Director Part 2 are 
then loaded and their addresses are placed 
in the GSPCB. The address of the work area 
is determined and placed in the GSPCB. All 
GSPCB fields not initialized by this time 
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are cleared and control is returned to 
INGSP Part 1. 

INDEV (Module Name IFFAAA03) 



Chart ; AA 

Function : Establishes communication links 
between GSP and a 2250. To do so, it: 

• Creates a GTMCB. 

• Creates a DCB to be used by GSP. 

• Creates and activates a GSP graphic 
attention control block (GACB) and its 
associated communication area 
(COM AREA). 

• Creates and activates a panic GACB and 
its associated COMAREA. 

• Obtains and clears main storage for the 
buffer control table (BCT) . 

• Initiates construction of the system 
GBSCB. 

• Initiates construction of the flow con- 
trol table (FCT) and flow control 
structure. 

• Initiates construction of the DECB used 
for input/output overlap. 

• Loads the following routines: Panic Key 
(CANCEL Key), Scissoring, Scaling, Buf- 
fer Management, Data Generation, and 
Data Store. 

• Unlocks the alphameric keyboard. 

All these control blocks and tables are 
associated with the 2250 specified by the 
user as the "unit" parameter in the call to 
INDEV. 

Entry : IFFAAA03 from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : The address of the GTMCB is placed 
in the address of the user-specified 
"devicename" parameter. The various con- 
trol blocks and tables associated with the 
2250 are established (see "Function" 
above) . 

Operation : If any function is not performed 
successfully throughout processing by 
INDEV, all functions previously performed 
by this execution of INDEV are negated, an 
appropriate return code is placed in the 
GSPARRAY, and control is returned to the 
calling program. 



INDEV first tests all parameters for 
validity, except for the "gdoalength" pa- 
rameter. If these parameters are valid, 
the amount of main storage necessary for 
the GTMCB, DCB, BCT, GSP GACB, panic GACB, 
and their associated COMAREAs is computed 
and obtained. The starting address of the 
main storage obtained (i.e., the address of 
the GTMCB) is placed in both the GTMCB and 
the GSPCB. 

The value used to form the data defini- 
tion name (ddname) of the data definition 
(DD) job control statement is placed in the 
"ddname" field of the DCB. The address of 
the DCB is then placed in the GTMCB and the 
DCB is opened. 

Once the DCB is open, the bit configu- 
rations associated with the features avail- 
able for the designated 2250 and the 
address of the 2250 are interpreted from 
the unit control block (UCB) and placed in 
the GTMCB. Next, the BCT is cleared and 
its address is placed in the GTMCB. 

At this point, INGDS is called to ini- 
tialize the system GDSCB and to place its 
address in the GTMCB. Flow Control Manage- 
ment is called to establish the flow con- 
trol table and flow control structure. 

Next, the GSP GACB, the panic GACB, and 
their associated COMAREAs are created, and 
the GSP GACB address is moved into the 
GTMCB. The length specified for GDOAs 
associated with this GTMCB is determined 
and placed in the GTMGDOAL field of the 
GTMCB. Then, the alphameric keyboard is 
unlocked . 

The GTMCB is added to the chain of 
GTMCBs as described under "Chaining" in the 
■Introduction." The address of the new 
GTMCB is placed in the variable specified 
by the "devicename" parameter. 

Next, the five internal routines and the 
Panic Key routine mentioned under 
"Function" are loaded by this routine, and 
their entry point addresses are placed in 
the appropriate fields in the status table. 
Control is then returned to the calling 
program. 

INGDS (Module Name IFFAAA05) 



Chart: AB 



Function : Creates a GDS and associates it 
with a 2250. To do so, it: 

• Establishes a GDSCB for each GDS, and 
each equivalent GDS. 

• Establishes two OACBs for each GDSCB 
(one for each GDOA) . 



20 



• Establishes two GDOAs for each GDSCB 
( for input/output overlap) . 



able. control is returned to the calling 
program. 



Entry : IFFAAA05 from Director Part 2« 

Exit ; To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : The address of the GDSCB is placed 
in the corresponding variable specified as 
the "gdsname" parameter. The various con- 
trol blocks and output areas associated 
with each specified GDS are established 
(see "Function" above) . 

Operation ; All parameters are processed and 
checked for validity. If the "gdoalength" 
parameter is not specified, the length of 
the GDOA is found in the GTMGDOAL field of 
the GTMCB. If this value is less than 128, 
it is rounded to 128. If the value is 
greater than 128, it is rounded to the next 
higher multiple of 256. All information 
obtained from the processing of these pa- 
rameters is saved for further use. 

Main storage is obtained for the GDSCB, 
two 0£CBs and two GDOAs. Additional stor- 
age is obtained if equivalent GDSs are 
specified. If insufficient storage is 
available at any time, all storage pre- 
viously obtained is freed, and control is 
returned to the calling program with an 
appropriate return code. 

Once storage has been obtained, a skele- 
ton GESCB is positioned at the beginning of 
the irain storage area just obtained, and 
its own address, the address of the GTMCB, 
the GDS level, and the GDOA length are 
placed in that GDSCB. Associated OACBs and 
GDOAs are then positioned behind the skele- 
ton GDSCB as shown in Figure 2. Format of 
the OACB is shown in Appendix A. 

If equivalent (shared) GDSs have been 
specified, the procedure described in this 
paragraph is repeated until all of the 
equivalent GDSs have been defined. Storage 
is obtained individually for each equiva- 
lent GDS. The address of the GDSCB for the 
shared GDS is placed in its associated 
"gdsname" variable. A flag is set in the 
previously created GDSCB to designate it as 
belonging to an equivalent GDS group. The 
GDSCB is duplicated at each new address in 
main storage for each equivalent GDS, and 
the GESCBs are chained together using the 
GDSSHEFD and GDSSHDBK fields as shown in 
Figure 3. OACBs and the GDOAs associated 
with each GDSCB are initialized and the 
GDSCB is added to the chain. 

When all equivalent GDSs have been pro- 
cessed, the address of the first GDSCB is 
placed in its associated "gdsname" vari- 



TMGDS (Module Name IFFAAA06) 



Chart : AC 

Function ; Terminates the use of the desig- 
nated GDS and all equivalent GDSs by 
freeing all main and buffer storage asso- 
ciated with the control blocks and tables 
used by those GDSs. 

Entry ; IFFAAA06 from Director Part 2. 

Exit ; To the calling program. 

Input ; See "Input to Many GSP Subroutines." 

Output ; None 

Operation ; If a key table exists for this 
GDS, Key Table Management is called to 
delete the key table. Then, if a flow 
control entry exists. Flow Control Manage- 
ment is called to delete the specified GDS 
from the flow control structure. Buffer 
Management is then called to free the 
buffer storage assigned to this GDS. 

The GDSCB is removed from the chain of 
GDSCBs by manipulating pointers. (See 
"Chaining" under "Introduction.") Its asso- 
ciated storage — including OACBs and GDOAs 
— is then freed. If this is an equivalent 
GDS, the forward and backward pointers are 
saved before freeing storage. 

Any equivalent (shared) GDSCBs are now 
removed from the chain of GDSCBs in the 
same manner as above. The forward pointer 
is used to determine the next GDSCB to be 
deleted. When all forward shared GDSCBs 
are deleted, the same process is repeated 
with backward pointers. Then, each time an 
equivalent GDSCB is removed from the chain, 
the key table for that GDS is deleted, if 
present, and storage occupied by the GDSCB 
and its OACBs and GDOAs is freed. 

When all equivalent GDSCBs have been 
deleted from the chain and all storage has 
been freed, control is returned to the 
calling program. 

TMDEV (Module Name IFFAAA04) 



Chart ; AD 

Function ; Terminates the use of the desig- 
nated 2250 by freeing all main and buffer 
storage associated with the control blocks 
and tables used by that 2250. 

Entry ; IFFAAA04 from Director Part 2. 
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Exit: To the calling program. 

Inpu t : See "Input to Many GSP Subroutines." 

Output : None 

Operation : Flow Control Management is 
called to stop regeneration and to free the 
storage assigned to the flow control table. 
Buffer Management is then called to free 
all buffer assigned to any GDSs associated 
with the specified 2250. 

Once all buffer has been freed, the 
GTMGDSCE field in the GTMCB is inspected 
for any open GDSs associated with that 
2250. £s an open GDS is encountered, TMGDS 
is called to terminate its use. The 
GTMLftTBL field in the GTMCB is then 
inspected for any attention levels asso- 
ciated with that 2250. As an attention 
level is encountered, ENATL is called to 
terminate its use. 

At this point, the GTMCB is removed from 
the chain of GTMCBs. Finally, the DCB is 
closed, and all main storage associated 
with the GTMCB, DCB, BCT, the GACBS and 
their COMAREAs is freed. 

TMGSP Part 2 (Module Name IFFAAA02) 



Chart : None 

Function : Terminates the use of GSP by: 

• Calling TMDEV to terminate the use of 
all associated 2250s. 

• Deleting all GSP subroutines and inter- 
nal routines that were previously load- 
ed. 

Entry : IFFAAA02 from TMGSP Part 1. 

Exit : To TMGSP Part 1. 

Input : In register 6, the address of the 
GSPCB . 

Output : None 

Operation : See "Function" above. 

GENERATION AND MODIFICATION OF A DISPLAY 

Numerous subroutines and internal rou- 
tines work together to produce a display on 
the 2250, and to implement the update 
facility available in GSP. This area 
includes the option definition, image gen- 
eration, image identification, and image 
control subroutines. The internal routines 
used by these subroutines are listed as 
"External References" in Table 1 and are 
described under "Internal Routines." 



OPTION DEFINITION SUBROUTINES (MODULE NAMES 
IFFAEA01, IFFAEA02, IFFAEA03, IFFAEA04, 
IFFAEA06, AND IFFAEA07) 

These subroutines define the charac- 
teristics of the input data to be supplied 
to image generation subroutines, the output 
to be generated by the Data Generator 
routine, and the characteristics of the 
display to be produced. Each one of these 
subroutines sets appropriate fields in the 
GDSCB. Locations of fields and bit set- 
tings are given with the GDSCB format 
description in Appendix A. Subroutine 
functions are as follows: 

• SDATM (module name IFFAEA01) sets bits 
in the GDSDATMD field to indicate the 
type (real or integer) and form 
(absolute or incremental) of data that 
the user will provide as input to GSP 
subroutines that refer to the specified 
GDS. If the type and form of data is 
changed by a call to SDATM, the data 
limits are converted to the new data 
type as necessary. 

• SGRAM (module name IFFAEA02) sets bits 
in the GDSCURMD field to define the 
form of output (absolute, incremental, 
or optimized) that will be produced by 
the Data Generator routine for the 
specified GDS. 

• SCHAM (module name IFFAEA07) sets bits 
in the GDSCHARS field to define the 
size of characters to be displayed for 
the GDS and whether or not those char- 
acters are to be protected or unpro- 
tected. 

• SDATL (module name IFFAEA03) places 
values in the GDSUVLLL, GDSWLLL, 
GDSUVLUR, and GDSWLUR fields that rep- 
resent the user-specified x- and y- 
coordinates for the lower-left and 
upper-right limits of input data. Upon 
successful completion of its function, 
this routine sets the GDSFLGS2 field to 
indicate that the SDATL subroutine was 
called. 

• SSCIS (module name IFFAEA06) sets bits 
in the GDSSCISS field to indicate 
whether or not scissoring is to be 
performed, where the image is to be 
truncated, and whether or not image 
generation is to be continued after 
scissoring. 

• SGDSL (module name IFFAEA0U) places 
integer values in the GDSXVILL, 
GDSYVILL, GDSXVIUR, and GDSYVIUR fields 
that represent the user-specified x- 
and y-coordinates for the lower- left 
and upper- right corners of the GDS. 
This routine also places real values in 
the GDSXVRLL, GDSYVRLL, GDSXVRUR, and 
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GDSYVFUR fields that represent the same 
user-specified coordinates. SGDSL tests 
the GCSFLGS2 field to determine if SDATL 
has been called. If not, this routine 
places the values for data limits in the 
appropriate fields (see SDATL above) using 
the same parameters passed for GDS limits. 
If no data has been generated for the GDS, 
the GDSXCURR, GDSYCURR, GDSXLAST, and 
GDSYLAST fields are set equal to the lower- 
left corner of the GDS if 0,0 is neither 
within nor on the boundary of the GDS. 

The entry point in each routine is the 
same as its module name. Entry is from 
Director Part 2. Exit is back to Director 
Part 2. During the processing, appropriate 
return codes are placed in the GSPARRAY 
field of the GSPCB. 

Input to each of these subroutines is 
described under "Input to Many GSP 
Subroutines. " 

Each routine tests the parameters for 
validity. If an invalid parameter is 
passed, a return code is set, and the 
fields that would normally be set according 
to the specified parameters remain as they 
were prior to this execution of the rou- 
tine. 



IMAGE GENERATION SUBROUTINES 

These subroutines create elements neces- 
sary for displaying images on the 2250 
screen. They analyze the input passed to 
them, and call upon various internal rou- 
tines to perform the functions necessary 
for producing appropriate graphic orders 
and data, and the associated control func- 
tions for GSP. 



The subroutines 
tion are: 



described in this sec- 



• STPOS/MVPOS, which moves the beam in 
blanked mode to a specified position on 
the 2250 screen. 

• PLINE/PPNT, which plots lines or points 
as specified. 

• PSGMT, which plots one or several line 
s egments . 

• PTEXT, which causes characters to be 
displayed using the character generator 
feature of the 2250. 

• STEOS, which generates an end-order- 
sequence order. 



Linkage for Image Generation Subroutines 

Figure 8 depicts the linkage for the 
image generation subroutines, and all 
external routines referred to by them. The 
figure shows the path followed when a call 
is issued in the user's program for each of 
the subroutines. 



All subroutines receive control via 
Director Part 1 and Director Part 2. 
Whenever control is passed to another rou- 
tine, the called routine completes its 
processing before control is returned to 
the calling routine (calling program). The 
use of external references may vary from 
one execution to anotner, since their use 
is contingent on the results of various 
tests performed by the image generation 
subroutines. When processing is complete, 
control is returned via the same path 
through which it was passed, as explained 
under "Control Flow Among GSP Routines." 



Output from Image Generation Subroutines 

Output from each image generation sub- 
routine except STEOS consists of calls to 
routines that scale, scissor, generate, and 
store graphic orders and data for display- 
ing the desired images. When required, a 
key is built, a key and/ or correlation 
value is placed in the key table via Key 
Table Management, and the key value is 
placed in the variable specified by the 
user as the "key" parameter. 



General Operation of Image Generation 
Subroutines 

Part of the operation for each of the 
subroutines except STEOS is the same. Each 
subroutine builds a parameter list that it 
will pass as input to Scaling, Scissoring, 
and Data Generator. Bits are set in this 
parameter list to indicate whether the 
element is a new or update element, is 
keyed or correlated, or is in include or 
omit status. Also placed in this parameter 
list is the correlation value (if passed) 
and the address of the variable into which 
the key is to be placed before exit from 
the subroutine. 

Each image generation subroutine saves 
the current raster unit coordinate posi- 
tions of the 2250 beam, and the raster unit 
coordinate values generated from the 
preceding call to an image generation sub- 
routine. (These values are obtained from 
the GDSXCURR, GDSYCURR, GDSXLAST, and 
GDSYLAST fields in the GDSCB. ) If the 
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subroutine fails to perform its prescribed 
functions for any reason (e.g., update 
element is too large) , these saved coordi- 
nate values are placed back in their re- 
spective fields in the GDSCB, and the GDS 
is reset, thus returning the program to the 
condition that existed prior to the call to 
the image generation subroutine. 

Scaling and Scissoring are called as 
necessary to determine the raster unit 
coordinates for each new beam position 
(beginning and end points in the case of 
PSGMT). Scissoring updates the GDSXCURR, 
GDSYCURR, GDSXLAST, and GDSYLAST fields of 
the GDSCB appropriately. If no Scissoring 
is requested, the image generation subrou- 
tine updates these fields after Scaling has 
been performed. 

If the element to be produced by an 
image generation subroutine is to be part 
of a buffer subroutine, the image genera- 
tion subroutine changes the contents of the 
GDSDATMD field in the GDSCB to reflect 
incremental input. Upon exit from the 
image generation subroutine, this field is 
restored to reflect the input mode that 
existed prior to the time the image genera- 
tion subroutine was called. 

STPOS/MVPOS (Module Names IFFAFA04 and 
IFFAFA17) 



Charts ; BA, BB 

Function; Causes graphic orders and data to 
be generated for moving the 2250 beam in 
blanked mode to a specified position on the 
screen. 

Entry : IFFAFA04 for STPOS, and IFFAFA17 for 
MVPOS, both from Director Part 2. 

Exit ; To the calling program. 

Input ; See "Input to Many GSP Subroutines." 

Output ; See "Output From Image Generation 
Subroutines . " 

Operation : On entry, a switch is set desig- 
nating whether the call was to MVPOS or 
STPOS. This switch is used in determining 
if the data (input) mode and graphic 
(output) mode set in the GDSCB are to be 
overridden (i.e., forced absolute input and 
output for STPOS) . STPOS/MVPOS then builds 
a parameter list that it will pass as input 
to the Scaling, Scissoring, and Data Gener- 
ator routines, and saves the current raster 
unit coordinate positions of the 2250 beam 
(see "General Operation of Image Generation 
Subroutines" ) . 

Scaling and Scissoring are called as 
necessary to determine the new beam posi- 



tion coordinates. (See "General Operation 
of Image Generation Subroutines.") Data 
Generator is called to produce the element 
for the GDOA associated with the GDS iden- 
tified in the call to the STPOS/MVPOS 
subroutine, and to complete the key (if 
any) that is to be associated with that 
element. If the element is keyed, and it 
is not an update element. Key Table Manage- 
ment is called to insert the key in the key 
table. 

If the element is an update element 
(i.e., is to be substituted for a previous- 
ly created element) , Key Table Management 
is called to determine the validity of any 
key or correlation value passed by the user 
in the call to the STPOS or MVPOS subrou- 
tine. Update is called to create a tem- 
porary GDOA. The update element is gener- 
ated as described in the preceding para- 
graph. Once the update element has been 
generated. Update is recalled to substitute 
this new element for the previously created 
element (identified by the key or correla- 
tion value or both) . 



PLINE/PPNT (Module Names IFFAFA01 and 
IFFAFA16) 



Charts : BA, BC 

Function : Causes graphic orders and data to 
be generated for producing one or more 
lines or points at specified positions on 
the 2250 screen. 

Entry : IFFAFA01 for PLINE, and IFFAFA16 for 
PPNT, both entered from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : See "Output From Image Generation 
Subroutines. " 

Operation : Is the same as described for 
STPOS/MVPOS, except as follows: 

• An entry switch set in the work area 
indicates if entry was from PLINE or 
PPNT. If entry was from PLINE, an 
element for displaying lines is gener- 
ated. If entry was from PPNT, an 
element for displaying points is gener- 
ated. 

• The routine plots a single line or 
point or multiple lines or points. For 
multiple input, new beam positions are 
obtained by indexing through the user's 
array of input coordinates or by adding 
a user-specified increment to the abso- 
lute position of the last line or 
point. 
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PSGMT (Module Name IFFAFA02) 



Charts ; BA, BC 

Function: Causes graphic orders and data to 
he generated for producing line segments on 
the 2 250 screen. 

Entry : IFFAFA02 from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : See "Output From Image Generation 
Subroutines. " 

Operation ; Upon entry, PSGMT builds a pa- 
rameter list that it will pass as input to 
Scaling, Scissoring, Data Generator, and 
Update, and saves the current raster unit 
coordinate positions of the 2250 beam (see 
"General Operation of Image Generation 
Subroutines") . 

Scaling and Scissoring are called as 
necessary to determine the raster unit 
coordinates for the starting and ending 
beam positions of each line segment to be 
produced (again, see "General Operation of 
Image Generation Subroutines") . Bits are 
set to unblank the beam for movement 
between the starting and end positions of 
each line segment, and to blank the beam 
for irovement between the end position of 
one segment and the starting position of 
the next segment. 

Scaling and Scissoring are entered twice 
for each line segment to be produced. For 
multiple line segments, depending upon the 
arguments specified in the call to the 
PSGMT subroutine, new beam positions for 
each segment are obtained by indexing 
through the user's array of input coordi- 
nates or by adding a user-specified incre- 
ment to the original value that was passed. 

If the input data mode is incremental, 
the starting positions of all line segments 
are determined by adding the start incre- 
ments to the previous starting positions. 
The end position of the first line segment 
is determined by adding the end increment 
to the first starting position of the first 
line segment. The end positions of all 
other segments are determined by adding the 
end increments to the previous end posi- 
tions . 

Data Generator is called as many times 
as necessary to produce the orders and data 
for displaying each desired line segment. 
Data Store is called to place these orders 
and data in the GDOA (or buffer on GDOA 
overflow) associated with the GDS identi- 
fied in the call to the PSGMT subroutine. 



After Scaling and Scissoring, Data Genera- 
tor and Data Store are entered twice for 
each line segment to be produced. If the 
element is for a level 1 GDS and is keyed 
or correlated, a key is structured if it is 
not an update element, and Key Table Man- 
agement is used to insert the key in the 
key table. 

If the element to be created is an 
update element . Key Table Management is 
called to verify the validity of any key or 
correlation value passed by the user. 
Update is called to create a temporary 
GDOA. The update element is generated as 
described above. Once the update element 
has been generated. Update is recalled to 
substitute this new element for the pre- 
viously created element (identified by the 
key or correlation value, or both) . 



PTEXT (Module Name IFFAFA03) 



Charts : BA, BD 

Function : Causes graphic orders and data to 
be generated for producing the text at 
specified positions on the 2250 screen 
using the character generator. 

Entry : IFFAFA03 from Director Part 2. 

Exit : To the calling program. 

Input ; See "Input to Many GSP Subroutines." 

Output ; See "Output From Image Generation 
Subroutines. " 

Operation : If the element is keyed or 
correlated. Data Store is called to set up 
the include/omit structure for the element. 
If positioning is required (i.e., the 
"xcoor" and "ycoor" arguments are 
provided) , MVPOS is called to position the 
beam. 

If scissoring is specified in the GDSCB, 
the length of the text to be displayed is 
calculated in raster units and used to 
determine the x- and y-coordinates for 
input to the Scissoring routine. Scissor- 
ing is then called to scissor the data 
according to the options set in the GDSCB 
by the SSCIS subroutine. The data returned 
from Scissoring is then tested. If any x- 
and y-coordinates have been entered in the 
blanked fields of the Scissoring input/ 
output area (see "Scissoring Routine"), a 
positioning element is generated via Data 
Generator. The number of characters that 
will fit in the scissored area is calculat- 
ed, character mode is set, graphic orders 
and data are generated by PTEXT, and Data 
Store is called as many times as necessary 
to store all the characters in the GDOA. 
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If the scissoring option set in the 
GDSCB indicates no scissoring is to take 
place, the Scissoring routine is not 
called; the x- coordinate is repositioned 
(GDSXIAST and GDSXCURR fields in the 
GDSCB); character mode is set; graphic 
orders and data are generated by PTEXT; and 
Data Store is called to store the charac- 
ters in the GDOA. 

If the element is not an update element 
and is a keyed or correlated (level 1 GDS) 
element, the key is placed in the key table 
via Key Table Management. If the element 
is an update element. Key Table Management 
is called in order to verify the validity 
of the key or correlation value passed. 
Update is called immediately after initial- 
ization to assign a temporary GDOA, and 
again after the element has been generated 
to write the graphic orders and data from 
the temporary GDOA to the buffer. Control 
is then returned to the calling program. 

STEPS (Module Name IFFAFA15) 



Chart : BE 

Function : Places an end-order- sequence 
(GEOS) order in the specified GDS. 

Entry: IFFAFA15 from Director Part 2. 

Exit : To the calling program. 

Input: See "Input to Many GSP Subroutines." 

Output : The end- order- sequence order is 
placed in the GDOA. When required, a key 
is built, a key and/or correlation value is 
placed in the key table via Key Table 
Management, and the key value is placed in 
the variable specified by the user as the 
"key" parameter. 

Operation : Depending on the parameters 
specified, the following operations are 
performed. 

If neither "key" nor "corrval" is speci- 
fied, STEOS constructs a GEOS order and 
calls Data Store to place it in the GDOA. 
Control is then returned to the calling 
program. 

If a key for a level 2 GDS is specified, 
STEOS computes a new key and places its 
value in the variable designated as the 
"key" argument. It then constructs a GEOS 
order and calls Data Store to place the 
order in the GDOA. Control is then 
returned to the calling program. 

If the user specifies either "key" or 
"corrval", or both, for a level 1 GDS, an 
appropriate key structure is established. 
Then, an appropriate include/omit 



(GNOP4/GTRU) structure is established, the 
GEOS order is created, and generated data 
is stored in the GDOA. To store the 
information, if necessary. Data Store may 
be called three times: (1) for the 
GNOP4/GTRU order, (2) for the GEOS order, 
and (3) for resolving the address associat- 
ed with the GTRU order. 

If an error is detected after the 
GNOP4/GTRU order has been stored, RESET is 
called to restore the GDS to the condition 
that existed immediately before STEOS was 
called, an appropriate return code is 
placed in the GSPARRAY field of the GSPCB, 
and control is returned to the calling 
program. 

After the data is stored. Key Table 
Management is used to enter the key or 
correlation value, or both, in the key 
table. Control is then returned to the 
calling program. 



IMAGE IDENTIFICATION SUBROUTINES 

These subroutines create the orders 
which identify limits for a buffer subrou- 
tine or sequence that is to be referred to 
as a unit by an individual key or correla- 
tion value. They also establish linkage to 
a buffer subroutine by means of the key or 
correlation value. 

The subroutines described in this sec- 
tion are: 

• BGSEQ/BGSUB, which indicates the begin- 
ning of a sequence or a buffer subrou- 
tine. 

• ENSEQ, which indicates the end of a 
sequence. 

• ENSUB, which indicates the end of a 
buffer subroutine. 

• LKSUB, which establishes linkage to a 
buffer subroutine. 

BGSEQ/BGSUB (Module Names IFFAFA05 and 
IFFAFA18) 



Chart : CA 

Function : For BGSEQ, indicates that all the 
elements that are subsequently generated 
for this GDS until a call to ENSEQ is 
issued for the same GDS make up an entity 
that can be identified by a single key or 
correlation value. For BGSUB, designates 
the beginning of a buffer subroutine in a 
particular GDS. 

Entries : IFFAFA05 for BGSEQ, IFFAFA18 for 
BGSUB, both entered from Director Part 2. 
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Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : Graphic orders and data that affect 
the status (include or omit) of all ele- 
ments within the specified sequence or 
buffer subroutine are placed in the GDOA 
via Data Store. The key value is placed in 
the variable specified by the user as the 
"key" argument. Unless it is a level 2 
GDS, the key is placed in the key table via 
Key Table Management. 

Operation : After checking the validity of 
the input, switches are set to indicate 
whether a sequence or a buffer subroutine 
is being established, whether the status is 
include or omit, and whether level 1 or 
level 2 key or correlation values are used. 
A skeleton parameter list for Data Store 
and the key structure (if it is level 1) 
are built. 

If a sequence is being established, a 
GTRU (for omit status) or a GN0P4 (for 
include status) order is placed in the 
input parameter list for Data Store, with 
an indication of an unresolved address. 
(This address will be resolved upon an 
entry from ENSEQ.) Data Store is called to 
place the order in the GDOA. If a level 1 
key is indicated, the key is completed and 
Key Table Management is called to place it 
in the key table. Control is then returned 
to the calling program. 

If a buffer subroutine is being estab- 
lished, a GTRU order to the unresolved 
address that will be resolved at ENSUB 
time, a GTRU to a zero address that will be 
changed by buffer subroutine linkage, a 
GN0P4 (include) or GTRU (omit) order with 
an unresolved address, and a GDRD order are 
set up in the input parameter list for Data 
Store, with indication of unresolved 
addresses. Data Store is called to place 
the orders in the GDOA. The address for 
the include/omit order is resolved. If a 
level 1 key is indicated, the key is 
completed, placed in the key table by Key 
Table Management, and control is returned 
to the calling program. 



Note: The buffer subroutine facility is 
provided only on an IBM 2250, Model 3. 
BGSUB tests the GTMFEATS field in the GTMCB 
for a Model 3. If any other model is 
indicated, control is immediately returned 
to the calling program along with an 
appropriate return code. 



Function : To indicate the end of a sequence 
of elements. 



Entry : IFFAFA06 from Director Part 2. 



Exit: To the calling program. 



Input : See "Input to Many GSP Subroutines." 

Output : Length of the sequence is placed in 
the key, and the address is resolved in the 
include/omit structure for the sequence via 
Data Store. 

Operation : Input is tested for validity, 
and the key for the sequence is obtained 
from the key table via Key Table Manage- 
ment. The length of the sequence is com- 
puted and stored in the key. A parameter 
list for Data Store is set up. Data Store 
is called to resolve the address in the 
GNOP4/GTRU order in the include/omit struc- 
ture of the sequence. 



Control 
gram. 



is returned to the calling pro- 



ENSEQ (Module Name IFFAFA06) 



Chart : None 



ENSUB (Module Name IFFAFA07) 



Chart : None 

Function : To indicate the end of a buffer 
subroutine. 

Entry : IFFAFA07 from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : A GTRU order which points to the 
beginning of the buffer subroutine is 
placed in the GDOA (or buffer, on GDOA 
overflow) . If level 1 keying is used, the 
subroutine length is added to the key in 
the key table. 

Operation : If level 1 keying is used, the 
key is obtained from the key table via Key 
Table Management. For both level 1 and 
level 2, the key address is placed in a 
parameter list for Data Store, a GTRU order 
is constructed with the computed address of 
the beginning of the buffer subroutine, and 
Data Store is called to place the order in 
the GDOA. The unresolved address for the 
first GTRU order placed in the GDOA for 
BGSUB is resolved at this time by Data 
Store. Upon the return of control from 
Data Store, if level 1 keying is used, the 
length of the buffer subroutine is placed 
in the key. Control is returned to the 
calling program. 
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LKSUB (Module Name IFFAFA08) 



Chart : CB 

Function : Creates linkage to execute a 
buffer subroutine and return. 

Entry : IFFAFA08 from Director Part 2. 

Exit ; To the calling program. 

Input ; See "Input to Many GSP Subroutines." 

Output ; Orders are created and stored in 
the GDOA (or buffer on overflow) to effect 
linkage to the buffer subroutine. If a 
level 1 key is designated for the linkage, 
the key is built and placed in the key 
table. 

Operation : The key for the subroutine 
(either level 1 or level 2) is obtained and 
used for calculating addresses for the 
orders that LKSUB generates to establish 
linkage. Linkage orders are created and 
the input parameter list for Data Store is 
built. The beginning address of the sub- 
routine for which linkage is being estab- 
lished is calculated and placed in the 
appropriate orders of the linkage with the 
proper displacement. Data Store is then 
called to resolve the return address in the 
orders, and to store them in the GDOA (or 
buffer, if the GDOA is full). If a level 1 
key was specified for the linkage, the key 
is placed in the key table. Control is 
returned to the calling program. 



IMAGE CONTROL SUBROUTINES 

These subroutines designate when and how 
an image is to be displayed on the 2250 
screen. Three of them implement the update 
facility supported by GSP. 



correct information 
calls. 



for subsequent 



The subroutines described in 
tion are: 



this sec- 



EXEC, which places all graphic orders 
and data in executable form in the 
buffer so that a display will appear on 
the 2250 screen. 

INCL/OMIT, which places a GDS, a keyed 
or correlated element, sequence, buffer 
subroutine, or buffer subroutine link- 
age in include or omit status. 



RESET, which resets 
part of a GDS without 
use of the GDS. 



(removes) all or 
terminating the 



• I EPOS, which provides the starting 
points from which the x- and y- 
coordinates are to be computed on any 
call where the GDSCB may not have 



• FSMOD, which causes an appropriate set 
mode order to be generated when an 
image generation subroutine is 
subsequently called. 

• ORGDS, which controls the image being 
displayed by ordering the regeneration 
sequence for GDSs associated with a 
particular 2250. 

EXEC (Module Name IFFAFA11) 



Chart : DA 

Function : Writes to the buffer any data 
that has been generated for a GDS since the 
last call to EXEC or since an overflow 
occurred in the GDOA. 

Entry : IFFAFA11 from Director Part 2. 

Exit : To the calling program. 

Input: See "Input to Many GSP Subroutines." 

Output : See "Function." 

Operation : If the GDOA is empty, or if no 
data has been generated since the last call 
to EXEC, and if the GDS is not an equiva- 
lent GDS, buffer execution is started and 
control is returned to the calling program. 

The GDSREPDT field in the GDSCB is 
checked to determine if any replacement 
data was stored from a previous overflow. 
This replacement data is to be used to 
overlay the return address to the flow 
control structure written out by the pre- 
vious call to EXEC. If this replacement 
data was saved, it is written to the 
buffer. Then, all graphic orders and data 
in the GDOA located between the CRSA point 
and the OLP point are written to the 
buffer. This is followed by the GTRU order 
back to the flow control structure, which 
is contained in the GDSOVDAT field of the 
GDSCB . 

If this is an equivalent GDS, the bit in 
the GDS FLAGS byte is set to indicate that 
this GDS is in the buffer. All similar 
bits in the other GDSs in the same equiva- 
lency group are turned off. If the GDS is 
not an equivalent GDS, a flag is set in the 
OACB to indicate that on overflow the first 
four bytes at the CRSA must be placed in 
the GDSREPDT field of the GDSCB. The 
fields in the OACB are updated to reflect 
the new positions in the GDOA and the 
buffer. Any unresolved addresses previous- 
ly noted in the GDOA are noted to now be in 
the buffer. If there is a cursor in the 
GDS, EXEC inserts the cursor in the buffer. 
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INCL/OMIT (Module Names IFFAFA09 and 
IFFAFA10) 



Chart ; None 

Function: Generates necessary include 
(GNOP4) or omit (GTRU) orders and sets bits 
to unblank or blank the 2250 beam to place 
elements, sequences, buffer subroutines, 
buffer subroutine linkages, or GDSs in 
include or omit status as designated by the 
user. 

Entry ; IFFAFA09 for INCL, or IFFAFA10 for 
OMIT, both entered from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : For multiple elements, an order 
immediately preceding the image generation 
orders and data for an element, sequence, 
buffer subroutine, buffer subroutine link- 
age, or GDS is changed either to transfer 
around the image generation orders speci- 
fied (OMIT), or to allow them to be pro- 
cessed (INCL). For single elements, the 
beam bit of the image generation order is 
changed to allow blanking or unblanking. 
Except for sequences and STPOS/MVPOS or 
PTEXT elements being placed in omit status, 
the beam will be positioned where the 
element ended. 

Operation : If omit status is to be esta- 
blished for multiple elements, a sequence, 
a buffer subroutine, buffer subroutine 
linkage, or a GDS, a GTRU is positioned in 
the buffer to transfer around the image 
generation orders for the elements referred 
to by the routine. 

If include status is to be established 
for multiple elements, a GNOP4 is posi- 
tioned in the buffer preceding the image 
generation orders for the elements. This 
order overlays any previously stored GTRU 
order which would have caused the image 
generation orders to be bypassed. 

For a buffer subroutine, the position of 
the appropriate order within the structure 
is determined, and the include/omit status 
is handled the same as for multiple ele- 
ments. For buffer subroutine linkage, the 
include/omit status is handled exactly the 
same as for multiple elements. 

For single elements in either include or 
omit status, a bit specifying that the beam 
is to be unblanked or blanked is set in the 
image generation order as appropriate. 

For both INCL and OMIT, a bit is always 
set in the key to specify the new status as 
include or omit. 



For examples of the include/omit struc- 
ture in various types of elements, see 
Figure 16. 

RESET (Module Name IFFAFA12) 



Chart: DB 

Function : Resets a GDS, or a keyed or 
correlated element and all elements gener- 
ated after the one referred to. To do so, 
it: 



Removes 
essary. 



orders from the buffer as nec- 



• Frees any unused buffer. 

• Sets up the GDOA and fields in the OACB 
to reflect the reset condition of the 
GDS. 



Removes 
table. 



appropriate keys from the key 



Entry : IFFAFA12 from Director Part 2, 
BGTRK, ENTRK, LOCPN, ORGEN, or from any GSP 
image generation subroutine which encoun- 
ters an error while generating data and 
must restore the GDS to the condition that 
existed before the call. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 
The parameter list may be passed by another 
GSP subroutine. 

Output : The key table, GDSCB, and OACB are 
appropriately updated. If reset occurred 
in the buffer, unused buffer sections are 
released, and those images reset are 
removed from the display regeneration 
cycle. 

Operation : Processing by RESET encompasses 
three major phases: (1) manipulating the 
key table, (2) checking for orders and data 
to be reset, and (3) resetting within the 
GDOA or the buffer. After third phase 
processing is completed successfully, the 
current mode field (GDSGRMOD) in the GDSCB 
is set to zero so that the next execution 
of an image generation subroutine will 
generate a set mode order. Control is then 
returned to the calling program. Each of 
the processing phases is described in 
detail in the paragraphs that follow. 

Manipulating the key table depends on 
various conditions as follows: 

• Only "gdsname" parameter is specified 
— Key Table Management resets the 
entire key table for this GDS. 

• The "key" and/or "corrval" parameters 



30 



are specified — Key Table Management 
locates the specified key in the key table. 
RESET saves this key. Key Table Management 
then resets the key table to the specified 
key so that this key and all subsequent 
keys in the table are removed. 



• Input "key" is not found in the key 
table and length of input "key" is zero 
— RESET assumes it was called by 
another GSP subroutine. The key table 
is not reset because the key has never 
been entered in the key table. 

• Input "key" or "corrval" is not found 
in the key table and length of input 
"key" is not zero — RESET places 
appropriate return code in the GSPARRAY 
and returns control to the calling 
program. 

• A level 2 GDS is specified — key table 
manipulation is bypassed. 

After key table manipulation, the fol- 
lowing information is available for further 
use by RESET: 

• If the entire GDS is to be reset, the 
key contains zeros. 

• If it is a level 1 GDS, with a key or 
correlation value, the key contains 
assorted information about the element 
to which the GDS is to be reset. 

• If it is a level 2 GDS, or if RESET was 
entered from another GSP subroutine, 
the key contains the logical buffer 
address, but does not contain informa- 
tion about the element to which the GDS 
is to be reset. 

Checking for orders and data in the GDS 
to be reset is done next. If the GDS does 
not contain any graphic orders and data, 
the current mode field in the GDSCB is set 
to zero so that the next execution of an 
image generation subroutine generates a set 
mode order; control is then returned to the 
calling program. If the GDS contains 
graphic orders and data, RESET proceeds to 
its third processing phase, depending upon 
whether the GDS to be reset is in the GDOA 
or in the buffer. 

Resetting within the GDOA includes the 
appropriate updating of the OACB from 
information in the key. The point to which 
the GDS is to be reset is determined and 
one or more of the following occurs: 

• If the GDS is being reset to within a 
sequence or buffer subroutine, the 
sequence or buffer subroutine is re- 
opened if necessary, and the key asso- 
ciated with it is updated accordingly. 



• If the GDS is an equivalent GDS which 
is currently in the buffer, the reset 
GDS is executed by a call to EXEC. 

• If the GDS is being reset to a point 
within a sequence or buffer subroutine 
that is not presently open, the key of 
the sequence or buffer subroutine is 
obtained from the key table, and the 
length of the key is set to zero. This 
reopens the sequence or buffer subrou- 
tine. The GDSKEYSV field in the GDSCB 
is set to the logical address of the 
key. The bit in the key denoting that 
a sequence or buffer subroutine has 
been started is set to one. In addi- 
tion, the flow control return address 
is placed at the top of the sequence or 
buffer subroutine in the GDOA and the 
location of this unresolved address is 
saved in the OACB. 

If the reset condition is none of the 
above, the third phase of processing is 
complete. 

Resetting within the buffer involves 
computing the location within the buffer at 
which the resetting is to begin. The OACB 
is appropriately updated from information 
in the key. If the buffer assigned to the 
GDS is not a 128-byte buffer subsection. 
Buffer Management is used to reset any 
buffer freed. If any replacement data in 
the GDSCB is part of the reset, the 
appropriate GDSCB fields are set to zero 
and a flag in the OACB is set to save the 
next four bytes as replacement data. The 
address that transfers control back to the 
flow control entry is written to the buffer 
at the location specified in the key. If 
the entire GDS is being reset, this loca- 
tion will be at the beginning of the GDS. 
Thus, any image created by the graphic 
orders and data being reset will be removed 
from the display. 

The point to which the GDS is to be 
reset is determined and one of the follow- 
ing occurs: 

• If the GDS is being reset to the 
beginning of a sequence or buffer sub- 
routine, the sequence or buffer subrou- 
tine is removed. 

• If the GDS is being reset to a point 
within a sequence or buffer subroutine 
that is not presently open, the key of 
the sequence or buffer subroutine is 
obtained from the key table. Next, the 
length of the key is set to zero, thus 
reopening the sequence or buffer sub- 
routine. The bit in the key denoting 
that a sequence or buffer subroutine 
has been started is set to one. In 
addition, in the case of resetting 
within a sequence, the physical buffer 
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address of the sequence is computed so 
that the address that branches to the 
end of the sequence can be replaced 
with the address that will transfer 
back to the flow control entry. 

If the reset condition is not one of the 
above, or after one of the above processes 
is complete, the third phase of processing 
is coirplete. 

Note; If this is a level 2 GDS f it is 
impossible to determine whether or not the 
GDS is being reset to a point within a 
sequence or buffer subroutine that is not 
currently open. Therefore, such a sequence 
or buffer subroutine cannot be reopened. 

IDPOS (Module Name IFFAFA13) 



Chart : DC 

Function ; Determines absolute x- and y- 
coordinate beam positions for subsequent 
use by image generation subroutines. 

Entry ; IFFAFA13 from Director Part 2. 

Exit ; To the calling program. 

Input: See "Input to Many GSP Subroutines." 

Output: The GDSXCURR, GDSYCURR, GDSXLAST, 
and GDSYLAST fields of the GDSCB are 
updated with the new beam position coordi- 
nates . 

Operation ; After determining the location 
and validity of the GDSCB identified by the 
"gdsname" input parameter, IDPOS processes 
the values of the remaining input parame- 
ters in pairs. 

Values specified as the "xlast" and 
"ylast" parameters are processed first. 
IDPOS moves these values into a data array 
that will be passed to Scaling, sets the 
GDSDATMD field of the GDSCB to indicate 
that absolute input data is being provided, 
and calls Scaling to scale the input data 
to actual raster unit coordinates. Upon 
successful completion of the scaling opera- 
tion, IDPOS places the newly scaled values 
in the GDSXLAST and GDSYLAST fields of the 
GDSCB and checks to see if the "xcurr" 
parameter has been specified. If not, 
IDPOS also places the scaled values in the 
GDSXCURR and GDSYCURR fields of the GDSCB, 
and restores the GDSDATMD field of the 
GDSCB to the condition that existed immedi- 
ately before IDPOS was entered. 

If the "xcurr" and "ycurr" parameters 
were specified, their values are moved into 
a data array and Scaling is called to scale 
these values to raster unit coordinates. 
Upon successful completion of the scaling 



operation, IDPOS places these newly scaled 
values in the GDSXCURR and GDSYCURR fields 
of the GDSCB and restores the GDSDATMD 
field to the condition that existed immedi- 
ately before IDPOS was entered. 



If an error is encountered at any time 
during processing by IDPOS, contents of all 
fields in the GDSCB are restored to the 
condition that existed immediately before 
IDPOS was entered. 



FSMOD (Module Name IFFAFAUP 

FSMOD sets the GDSGRMOD field of the 
GDSCB to zero so that the next image 
generation subroutine to be called will 
generate a set mode order. Entry is from 
Director Part 2. Exit is to the calling 
program. Input consists of the address of 
a work area in register 1. The first word 
of this area contains the address of a 
variable that points to the GDSCB. 



ORGDS (Module Name IFFAFA19) 

Chart : None 

Function : Reorders the flow control struc- 
ture in the buffer and the in-use list in 
the FCT in main storage to reflect the new 
regeneration sequence of GDSs as specified 
by the user. The system GDS is always left 
as the first GDS in the flow control 
structure. 

Entry ; IFFAFA19 from Director Part 2. 

Exit ; To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : See "Function." 

Operation ; See "Function." For a complete 
discussion in regard to the flow control 
structure and the FCT, refer to the section 
"Flow Control Management." 



ALLOWING KEYBOARD INPUT AND BUFFER DATA 
ANALYSIS 

GSP provides subroutines that allow data 
to be entered from the alphameric keyboard, 
and also allow orders and data or charac- 
ters to be read from the 2250 buffer into 
main storage to be analyzed. Two of these 
subroutines (ICURS and RCURS) insert or 
remove a cursor in the specified GDS. One 
subroutine (GSPRD) allows data to be read 
from the buffer into main storage. 
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ICURS (Module Name IFFADA03) 



Chart: EA 

Function : Inserts a cursor into a specified 
location within a GDS. 

Entry : 1FFADA03 From Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : If the cursor location within the 
GDS is not in the buffer, the buffer 
address of the cursor location is placed in 
the GTMCB and appropriate flags are set in 
the GTMCB and GDSCB. If the cursor loca- 
tion is in the buffer, the cursor is 
inserted in the buffer and appropriate 
flags are set in the GDSCB and GTMCB. 

Operation : ICURS checks the GDSFLAGS field 
of the GDSCB to determine if the programmer 
is using a level 1 or level 2 GDS. If 
level 2 is being used, the logical buffer 
address is computed from the locations 
specified in the key supplied by the user. 

If level 1 is being used, the logical 
buffer address for insertion of the cursor 
is computed from the key table using the 
key or correlation value supplied in the 
call to the ICURS subroutine. If both key 
and correlation value are supplied, the key 
is used to compute the logical buffer 
address and the correlation value is sub- 
stituted in the key table for the correla- 
tion value previously assigned to the ele- 
ment or sequence into which the cursor is 
to be inserted. 

ICURS then checks the GTMFLAGS field in 
the associated GTMCB to determine if a 
cursor is already present in the 2250. If 
it is present, RCURS is called to remove 
the cursor. 

Once the logical buffer address has been 
computed, ICURS determines whether the ele- 
ment or sequence into which the cursor is 
to be inserted is in the buffer or in the 
main storage GDOA. If the element or 
sequence is in the buffer, the physical 
buffer address is computed, the cursor is 
inserted in the buffer, and flags are set 
in the GDSFLAGS field of the GDSCB and the 
GTMFLAGS field of the GTMCB to indicate the 
presence of a cursor. If the element or 
sequence is in the GDOA, the physical 
buffer address is computed and placed in 
the GTMCRLOC field of the GTMCB. Flags are 
then set in the GDSFLAGS field of the GDSCB 
and the . GTMFLAGS field of the GTMCB to 
indicate the presence of a cursor. The 
cursor is then moved to the buffer the next 
time the contents of the GDOA are trans- 



ferred to the buffer by a call to the EXEC 
subroutine. 

RCURS (Module Name IFFADA02) 



Chart : EB 

Function : Removes the cursor from a GDS. 

Entry : IFFADA02 from Director Part 2, or 
from ICURS. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : Cursor is removed from the GDS, and 
applicable flags are removed from the 
GDSFLAGS and GTMFLAGS fields of the GDSCB 
and GTMCB. 

Operation : RCURS checks the GTMFLAGS field 
in the GTMCB associated with the specified 
GDS to determine if a cursor is present in 
this 2250. If there is none, the flag 
fields in the GTMCB and all its associated 
GDSCBs are reset, the GTMCRLOC field in the 
GTMCB is set to zero, and control is 
returned to the calling program. 

If the cursor is present, RCURS locates 
any cursor that is in the buffer assigned 
to this 2250 which was allocated by GSP 
buffer management, and removes the cursor. 
The GTMCRLOC and the GTMFLAGS fields of the 
GTMCB and the GDSFLAGS fields of the asso- 
ciated GDSCBs are reset. 

GSPRD (Module Name IFFADA01) 



Chart : EC 

Function : Reads all or part of a GDS from 
the buffer into main storage as specified 
in the user parameters. 

Entry : IFFADA01 from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : Requested data from the buffer is 
placed in a user-specified array in main 
storage. The result of the read operation 
is placed in the variable specified by the 
"termcode" parameter. 

Operation : The parameter list is tested for 
various combinations of parameters. Based 
on the results of these tests, the logical 
length of the buffer is determined, either 
from the key, or the OACB (for an entire 
GDS) . The logical buffer length and the 
"count" parameter are compared, and the 
smaller one is used to set up a read 
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control area which determines the amount of 
data to be read from the buffer. The BCT 
is used to convert the logical buffer start 
address into a physical buffer start 
address, and the length of the buffer 
section is calculated. 

The buffer is read into the work area. 
This operation is ended if (1) the cursor 
is detected when "count" was negative, (2) 
the specified amount of data has been read, 
or (3) the end of the GDS or the last 
element has been reached. 

The data is then moved from the work 
area to the user's main storage array. If 
text only is specified in the parameter 
list, characters appearing in the work area 
are moved to the user- specified area. If 
all data is requested, all orders and data 
from the work area are moved to the user- 
specified area. The type of action that 
resulted in a termination of the read 
operation is recorded in the variable 
specified as the "termcode" parameter, and 
control is returned to the calling program. 



COMMUNICATION BETWEEN 2250 OPERATOR AND GSP 
PROGRAM 

Communication between the 2250 operator 
and GSP is accomplished through the use of 
the attention related subroutines and the 
light pen subroutines. These subroutines 
make available to the operator the light 
pen, the programmed function keyboard, or 
the alphameric keyboard. If the operator 
desires to do so, he can interrupt the 
program by depressing the CANCEL key on the 
alphameric keyboard. The CANCEL Key (Panic 
Key) routine is described in this section, 
although it is an internal routine which is 
loaded by INDEV. 



ATTENTION RELATED SUBROUTINES 

Attention related subroutines are used 
for two-way communication between the 2250 
user and the GSP program. They create, 
manipulate, and terminate control blocks 
that make this communication possible. By 
using these control blocks, the attention 
related routines enable attention informa- 
tion to be received from the 2250 operator 
and passed to the GSP program. The atten- 
tion related subroutines designate the 
attentions that are to be accepted from the 
2250 operator, and those that are to be 
ignored. They define the type of informa- 
tion that is to be made available to the 
program, and make that information avail- 
able to the program. 

The attention related subroutines de- 
scribed in this section are: 



• CRATL, which creates an attention level 
control block (ATLCB) . 

• ENATL, which terminates the use of an 
ATLCB. 

• ENATN, which designates the sources 
from which attentions will be accepted. 

• DSATN, which designates the sources 
from which attentions are no longer to 
be accepted. 

• SLPAT, which permits light pen atten- 
tions to be accepted. 

• RQATN, which makes information about an 
attention available to the GSP program. 

• MLITS, which designates the programmed 
function keyboard indicator lights that 
are to be on and those that are to be 
off. 

• MLPEO, which designates the type of 
information that is to be made avail- 
able for light pen or end-order- 
sequence attentions. 

• MPATL, which modifies the position of 
an ATLCB within the hierarchy of 
attention levels. 

• CANCEL Key (also called Panic Key) 
routine, which allows an abnormal ter- 
mination dump to be produced when the 
2250 operator senses that his program 
is not performing properly. 

• SALRM, which sounds the single stroke 
audible alarm on the 2250. 

Figure 9 depicts how the attention 
related routines manipulate the contents of 
the control block fields as an attention 
level is created, the light pen attention 
source is enabled, a light pen attention is 
received, and information is requested 
about that light pen attention. 



CRATL (Module Name IFFACA00) 

Chart : FA 

Function : Establishes an active attention 
level by creating and initializing an 
attention level control block (ATLCBs) and 
its attention data entry queues (ADEQs). 
This block and its queue are described in 
detail in Appendix A. 

Entry : IFFACA00 from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 
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CRATL 



Create an active 
attention level. 



ENATN 



Enable light pen 
attentions for 
active level. 




SLPAT 



Enable light pen 
for the GDS. 



GTMCB 



GTMLATBL 




Receive light pen 



attention on active 
level; transfer 
attention information 
to the GSP GACB. 




ATLCB 



ATTNFWPT 



ATTNAVAL 



ATTNMLEN 



ATTNFLGA 



ATTNANEN 



<D 



<5 



— © 



ADEQ 



RQATN 

Request information about 
a light pen attention for 
the active attention level. 



© 


Is there information on the 
specified attention level 
queue? (No. The ATLCB was 
never inactive. ATTNMLEN=0) 


© 


Is the specified attention 

level active? (Yes. ATTNFWPT=0) 


© 


Is there information on basic 
internal queue? (Yes. A light 
pen attention has occurred.) 


© 


Is the light pen enabled for 
the specified attention level? 
(Yes. The call to ENATN 
enabled it. ATTNANEN=X'02') 


© 


Dequeue and save attention 
information. 


© 


Is the attention information 
about a light pen attention? 
(Yes.) 


© 


Is the light pen enabled for 
GDS that the light pen identified? 
(Yes. The call to SLPAT enabled 
it. GDSFLAGS=X'02') 


© 


Is character information to be 
returned? (No. A call was 
never made to MLPEO.) 


© 


After necessary information is 
obtained, it is placed on the 
user-specified array. 



Figure 9. Manipulation of Control Blocks During Attention Processing 
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Output ; An ATLC3 and associated ADEQs are 
created. The address of the ATLCB is 
placed in the user-specified variable 
("attnlevel") . The indicator lights on the 
programmed function keyboard are lit as per 
the GTMLIGHT field of the GTMCB. 

Operation : Main storage is obtained for the 
ATLCB and its ADEQs. If there is a pre- 
viously active attention level, the ATTNINQ 
macro instruction is issued to determine if 
any attention information is available. If 
so, that information is transferred from 
the GSP GACB to the active ATLCB. Atten- 
tion sources in the GSP GACB associated 
with the specified GTMCB are disabled and 
the light pen restart option is set for no 
restart. The ATLCB and its ADEQs are 
initialized as follows: 

• The ADEQs are created immediately fol- 
lowing the ATLCB, and are chained. The 
address of the first ADEQ in the chain 
is placed in the ATTNAVAL field. 



ATTNFLGA is set as per 
parameter. 



the "dequectl" 



• ATTNLITE is set to indicate the default 
option in the GTMLIGHT field of the 
GTMCB, for lighting the programmed 
function indicator lights. 

• The address of the ATLCB is placed in 
the user-specified variable. 

If this is the first ATLCB created for 
the GTMCB, pointers are set as follows: 

• ATTNFWPT is set to zero to indicate 
that this is the active attention 
level. 

• ATTNBKPT is initialized to the address 
of the GTMCB. 

• ATTNBPID is set to X'Ol 1 to indicate 
that ATTNBKPT points to the GTMCB. 



The address 
the GTMCB. 



of the ATLCB is placed in 



If this is not the first ATLCB created 
for the GTMCB, pointers are set as follows: 

• The address of the newly created ATLCB 
is placed in the ATTNFWPT field of the 
previously active ATLCB. Thus, the 
previously active attention level 
becomes inactive. 

• The address of the previously active 
ATLCB is placed in the ATTNBKPT field 
of the newly created ATLCB. 

• The ATTNFWPT field of the newly created 
ATLCB is set to zero to indicate it is 
the active attention level. 



The address of the newly created ATLCB 
is placed in the GTMCB, which points to 
the active attention level. 



See "Chaining" under "Introduction* 
relationship of pointers. 



for the 



Next, the programmed function indicator 
lights are lit as defined in the GTMLIGHT 
field of the GTMCB. Control is then 
returned to the calling program. 

ENATL (Module Name IFFACA01) 



Chart: FB 



Function : (1) Terminates 
levels that are lower in 
level hierarchy for this 



all attention 
the attention 
GTMCB than the 
specified attention level, thus making tne 
specified attention level active; or (2) 
terminates the specified attention level 
and all other attention level (s) lower in 
the hierarchy for this GTMCB, making the 
next higher remaining attention level 
active. 

Entry ; IFFACA01 from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : The appropriate ATLCBs and their 
ADEQs are deleted. 

Operation : If the parameters are valid, the 
GSP GACB attention sources are disabled to 
prevent any attention from occurring while 
the attention levels are being manipulated. 

If a "rangecode" of 1 has been speci- 
fied, pointers are manipulated as follows: 

• If the ATTNBKPT field of the specified 
ATLCB points to the GTMCB, the GTMLATBL 
field in the GTMCB is set to zero. 

• Otherwise, the ATTNBKPT field of the 
specified ATLCB is placed in the 
GTMLATBL field of the GTMCB, and the 
ATTNFWPT of the next higher ATLCB is 
set to zero. 

If a "rangecode" of 2 has been speci- 
fied, various pointers are manipulated as 
follows: 

• The address of the specified ATLCB is 
placed in the GTMCB. 

• The ATTNFWPT field of the specified 
ATLCB is set to zero. 

If an active attention level still 
remains after the designated attention 
levels have been removed from the ATLCB 
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chain, attention sources and the light pen 
restart option are enabled in the GSP GACB 
(according to the options specified in the 
active ATLCB) . Programmed function indica- 
tor lights are lit as specified in the 
active ATLCB. 

Storage for the detached ATLCBs and 
their ADEQs is now freed, and control is 
returned to the calling program. 

ENATN (Module Name IFFACA02) 



Charts ; FC, FD 

Function : Performs two services, namely, 
(1) defines which attention sources are to 
receive attentions when the designated 
attention level is active by setting bits 
in the ATLCB (and in the GSP GACB if the 
specified level is active), and (2) removes 
any previous attention information for 
those sources that may be on the queue for 
the designated ATLCB. 

Entry ; IFFACA02 from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : Appropriate bits are set in the 
proper control blocks (see "Function" 
above) . Any attentions currently queued 
for the specified level that match atten- 
tion sources just enabled are removed from 
the queue. Programmed function indicator 
lights are lit as appropriate. 

Operation : While the "attnsource" parame- 
ters are being tested, two temporary atten- 
tion source masks — one for programmed 
function keys and one for all other atten- 
tion sources — are set up. For each 
"attnsource" specified, a bit is set in the 
appropriate mask. The meaning of the bits 
in these masks is the same as for the 
ATTNPFEN and ATTNANEN fields in the ATLCB. 
These masks are then added to the ATTNPFEN 
and ATTNANEN fields in the ATLCB. 

If the specified attention level is 
active, all attention information in the 
GSP GACB that was obtained from an atten- 
tion source just enabled is removed from 
the GSP GACB and from the ATLCB. The freed 
ADEQs are transferred from the ATTNMLEN 
field of the ATLCB to the ATTNAVAL field. 
The newly constructed attention source 
masks are now added to the attention source 
masks in the GSP GACB. Indicator lights 
for newly enabled programmed function keys 
are lit, and control is returned to the 
calling program. 

If the specified attention level is 
inactive, the ATTNMLEN field of the ATLCB 



is checked and any information queued for 
an attention from one of the newly enabled 
sources is removed. The ATTNAVAL field is 
updated to include these free areas. Con- 
trol is then returned to the calling pro- 
gram. 

DSATN (Module Name IFFACA03) 



Charts : None 

Function : Causes future attentions for the 
designated attention sources to be disre- 
garded by deleting the attention sources 
from the enabled attention source masks in 
the ATLCB, and in the GSP GACB if the 
designated attention level is active. 

Entry : IFFACA03 from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : The enabled attention source bits 
are properly reset in the appropriate con- 
trol block(s). (See "Function" above.) 
Programmed function indicator lights are 
relit as appropriate. 

Operation : As in ENATN, while the 
"attnsource" parameters are being tested, 
two temporary attention source masks are 
set up. These masks are now subtracted 
from the corresponding ATTNPFEN and 
ATTNANEN fields in the specified ATLCB. If 
the ATLCB is inactive, control is returned 
to the calling program. 

If the ATLCB is active, the new atten- 
tion masks in the ATLCB are placed in the 
associated GSP GACB. Programmed function 
indicator lights are relit as appropriate, 
and control is returned to the calling 
program. 

SLPAT (Module Name IFFACA06) 



Chart : None 

Function ; Enables or disables light pen 
attentions for a specified GDS. 

Entry : IFFACA06 from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : The appropriate bit is set in the 
GDSCB and the appropriate graphic order is 
placed in the buffer. 

Operation : Depending on the value of the 
"detect" parameter, the following steps are 
taken: 
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If "detect" is 1, bit 7 in the GDSFLAGS 
field of the GDSCB is set to one, and 
the Enable Switch Detect (GESD) order 
is written to the buffer location spec- 
ified by the GDSFCBUF field in the 
GESCB. Control is then returned to the 
calling program. 

If "detect" is 2, bit 7 in the GDSFLAGS 
field is set to zero, and the Disable 
Light Pen Detect (GDPD) order is writ- 
ten to the buffer location specified by 
GESFCBUF. Control is then returned to 
the calling program. 



RQATN (Module Name IFFACA08) 



Charts ; FD, FE, FF, FG 

Function ; Performs the following as desig- 
nated in the call to the RQATN subroutine: 

• Makes available attention information 
about an attention from a designated 
source. It dequeues that information 
as it is made available unless the 
do-not-dequeue option for an inactive 
ATLCB was specified in the call to the 
CRATL subroutine for the associated 
ATLCB. 

• Delays execution of the main line pro- 
gram until an attention occurs from a 
designated source. Then information 
about that attention is made available 
to the calling program. 

• Places additional information for light 
pen, end-order-sequence, and programmed 
function keyboard attentions in a user- 
defined array. 

Entry ; IFFACA08 from Director Part 2. 

Exit ; To the calling program. 

Input ; See "Input to Many GSP Subroutines." 

Output ; A code indicating which designated 
source caused the attention is assigned as 
the value of the "codeloc" parameter. If 
the designated source was the light pen, an 
end-order-seguence order, or a programmed 
function key, additional information about 
the attention is placed in the area 
identified by the "arrayname" parameter. 

Operation ; While the "attnsource" parame- 
ters are being tested for validity, two 
temporary attention source masks are esta- 
blished. These masks are used later to 
determine (1) whether attention information 
is from one of the sources designated in 
the call to the RQATN subroutine, and (2) 
whether those sources are enabled for the 
ATLCB if that ATLCB is active. The masks 



are discussed in detail in the 
of the ENATN routine. 



description 



Once the attention source masks are 
established, processing proceeds in two 
major phases: (1) to determine if an atten- 
tion has occurred from designated attention 
sources, and (2) to determine which source 
caused the attention and then make 
appropriate information about that atten- 
tion available to the calling program. 

Determining if an attention had occurred 
from designated attention sources . A test 
is made to determine if attention informa- 
tion for any of the designated sources is 
on the ATLCB queue. If it is on the queue, 
that information is saved in a work area. 
The information is then removed from the 
queue unless the ATLCB is inactive and the 
do-not-dequeue option is specified (see 
CRATL subroutine) . 

If there is no information on the queue 
and the specified ATLCB is inactive , con- 
trol is immediately returned to the calling 
program. If no immediate return is wanted, 
a return code designating a parameter error 
is placed in the GSPARRAY field of the 
GSPCB. 

If there is no information on the queue 
and the specified ATLCB is active , process- 
ing continues as follows: 

1. If the designated attention sources 
are disabled, control is immediately 
returned to the calling program along 
with an appropriate return code. 

2. If the designated attention sources 
are enabled, RQATN determines if there 
is any attention information from one 
of the designated sources in the GSP 
GACB. If there is none and an immedi- 
ate return is wanted, control is 
immediately returned to the calling 
program. If there is none and no 
immediate return is wanted, RQATN 
waits until an attention occurs. When 
the awaited attention occurs, informa- 
tion about it is saved in a work area 
and removed from the GACB. 

Determining which source caused the 
attention and making appropriate informa- 



tion available. 



Once information either 



from the ATLCB queue or from the GSP GACB 
has been obtained, tests are made to deter- 
mine which requested source caused the 
attention. Depending on the attention 
source, the following processing is done: 

1. If the light pen caused the attention, 
the GDSCB is located via the buffer 
control table (BCT) . If the GDSCB 
cannot be located, or if the light pen 
is not enabled for this GDSCB, regen- 
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eration of the display occurs (if the 
restart flag is set to zero) and a 
test is made to determine if any other 
attention has occurred for one of the 
requested sources. 



If the light pen is enabled for this 
GESCB, RQATN determines if character 
information is to be returned. If it 
is, the information is obtained from 
the buffer, and the display is regen- 
erated (if desired) . 



MLITS (Module Name IFFACA07) 



Charts: None 



Function : Sets bits either in the GTMCB or 
the ATLCB that indicate which programmed 
function indicator lights are to be lit. 



Entry : IFFACA07 from Director Part 2, 



Exit : To the calling program. 



If the "arrayname" parameter was spec- 
ified, the designated array is filled 
in with information from the GTMCB, 
ECT and key table. If coordinate 
information is desired, CNVRT is used 
to provide that information. A value 
of 34 is placed in the "codeloc" 
variable and control is returned to 
the calling program. 



If an end- order-sequence order caused 
the attention about which information 
has been obtained, and if coordinate 
information is to be returned, RQATN 
obtains the information from the X and 
Y position registers, and restarts the 
display (if desired). 



If the "arrayname" parameter was spec- 
ified, the array is now filled in the 
same way that it was for a light pen 
attention. A value of 35 is placed in 
the "codeloc" variable and control is 
returned to the calling program. 

If a programmed function key caused 
the attention about which information 
has been obtained, the overlay code is 
placed in the first word of the array 
if the "arrayname" parameter has been 
specified. The numeric value of the 
programmed function key is then placed 
in the "codeloc" variable and control 
is returned to the calling program. 

If the END key caused the attention, a 
value of 32 is placed in the "codeloc" 
variable and control is returned to 
the calling program. 

If the CANCEL key caused the atten- 
tion, a value of 33 is placed in the 
"codeloc" variable before control is 
returned to the calling program. 



Note: CANCEL key is currently unavailable 
for use as it is enabled for the Panic Key 
routine which has the highest possible 
priority. Thus, a CANCEL key attention is 
always recognized by the Panic Key routine. 



Input : See "Input to Many GSP Subroutines." 



Output : The designated programmed function 
indicator lights are lit. 



Operation : Depending on the parameters that 
were specified, the appropriate setting of 
bits is accomplished. If the first param- 
eter points to a GTMCB, bits are set in the 
GTMLIGHT field as shown in Table 2. 



Table 2. GTMLIGHT Options 

r t 1 

J "status" | Bit Setting and Meaning | 
|. + 1 

1 | Error return with appropriate 
j return code 



j X'02' Turn all indicator 
j lights off 



| X'03* Light enabled keys 



j X'QH' Use GTMCB light mask 



-H 



other | Error return with appropriate 
j return code 

L J. 



Note: 



If 



'status' 



equals four, the 



"lights" parameters are tested for validi- 
ty. If they are invalid, control is 
returned to the calling program along with 
an appropriate return code. If they are 
not specified, the present light mask in 
the GTMPFKSS field of the GTMCB is used. 
Otherwise, a light mask is created. A bit 
is set for each "lights" parameter speci- 
fied. Bit positions 0-31 in the mask 
correspond to programmed function keys 
0-31, respectively. This light mask is 
placed in the GTMPFKSS field of the GTMCB. 



If the first parameter points to an 
ATLCB, bits are set in the ATTNLITE field 
as shown in Table 3. 
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Table 
r 



3. 
status' 



ATTNLITE Options 

- T 

| Bit Setting and Meaning 



j. + H 



| X'Ol' Use GSP default 
option in GTMCB 



4 



I- 



| X*02* Turn all indicator 
| lights off 

| X'OS' Light enabled keys 
|. + j, 

| X , 04 t Use ATLCB light mask 
|. + ., 

other | Error return with appropriate 
| return code 

JL 



l 



JL J 



Note: If "status" equals four, 

• The present light mask in the ATTNPFLM 
field of the ATLCB is used if "lights" 
is not specified. 

• A light mask created by MLITS is placed 
in the ATTNPFLM field of the ATLCB. 

Once the bits are set, the active ATLCB 
is located via the GTMCB and the programmed 
function indicator lights are lit according 
to the lights option byte (ATTNLITE) of the 



active ATLCB. Control is then returned to 
the calling program. 

MLPEO (Module Name IFFACA05) 



Charts : None 

Function : Designates (1) the type of infor- 
mation to be queued about a light pen or 
end-order- sequence attention, and (2) when 
display regeneration is to begin after a 
light pen or end-order-sequence attention 
has occurred. 

Entry : IFFACA05 from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : Appropriate bits are set in 
ATTNFLGA field of the ATLCB. If the speci- 
fied attention level is active, appropriate 
bits are also set in the GSP GACB. 

Operation : Depending on the values of the 
parameters, the option bits are set in the 
ATTNFLGA field of the specified ATLCB as 
shown in Table 4. 



Table 4. MLPEO Options 

r 

| Parameters 



ATTNFLGA Field 



■ - 1 

I 

-H 



Return no coordinate information for 
EOS attentions. 

Bit 0=1 I Return coordinate information for EOS 
attentions. 

Bit 2=0 
Bit 3=0 






'attntyp 
1 



"info" 
1 



Bit 2=1 



restart' 



Bit 4=1 
Bit 1=1 



Bit 4=0 
Bit 1=0 



Bit Setting 
Bit 0=0 



Bit 3=1 



Bit 2=1 
Bit 3=1 






Meaning 



Return no coordinate or character 
code information for light pen atten- 
tions . 



H 



Return coordinate information for light 
pen attentions. 

Return character code information for 
light pen attentions. 

Return coordinate and character code 
information for light pen attentions 



Restart display immediately after 
attention occurs. 



Restart display after the next call to 
the EXEC subroutine. 



Note: If the "info" or "restart" parameters are not specified, a value of 1 is assumed. j 

. j 
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If the specified ATLCB is active, the 
restart option byte in the GSP GACB is set 
to reflect the information specified by the 
"restart" parameter. Control is then 
returned to the calling program. 



MPATL (Module Name IFFACA04) 



Before the specified ATLCB is moved to 
its new position, attention information in 
the GSP GACB is placed in the active ATLCB 
ATTNMLEN queue. All attention sources for 
the GSP GACB are then disabled, thus pre- 
venting attentions from occurring while the 
ATLCBs are being moved. The ATLCB to be 
moved is then deleted from the chain. 



Charts; FH, FJ 



Function : Changes the relative position of 
a specified ATLCB within the hierarchy of 
all ATLCBs currently associated with this 
GTMCB . 

Entry ; IFFACA04 from Director Part 2. 

Exit ; To the calling program. 

Input ; See "Input to Many GSP Subroutines." 

Output ; The hierarchy of ATLCBs is properly 
reordered. The light pen restart option in 
the GSP GACB is set as specified by the 
active ATLCB. Programmed function indica- 
tor lights associated with the GTMCB are 
lit as specified by the ATTNLITE field of 
the active ATLCB. 

Operation ; This consists of manipulating 
ATLCBs in the chain. For chaining informa- 
tion, see "Chaining" under "Introduction." 

The new position in the chain for the 
specified ATLCB is determined as follows: 

• If the "relattnlevel" parameter is not 
specified, the value of the "direction" 
parameter determines the new position. 

• If the "relattnlevel" parameter is 
specified, a value is computed that 
indicates the direction (up or down) 
and the number of ATLCBs between the 
relative ATLCB and the ATLCB designated 
by the "attnlevel" parameter. This 
value is then added to the value of the 
"direction" parameter to produce a sum 
that positions the specified ATLCB. 
(Note: If the designated ATLCB is not 
associated with the specified GTMCB, 
control is returned to the calling 
program along with an appropriate 
return code.) 

The "direction" value (or computed sum 
in cases when the "relattnlevel" parameter 
is specified) is tested for validity. This 
is accomplished by counting up or down the 
chain of ATLCBs in the desired direction 
until the top or bottom of the chain is 
reached. If this count is less than the 
"direction" value (or computed sum) , con- 
trol is returned to the calling program 
along with an appropriate return code. 



Once the ATLCB is deleted from the 
chain, its ATTNBPID field is set to zero 
and the new point of insertion is deter- 
mined. This is done by using the 
"direction" value (or computed value) for 
searching up or down the chain of ATLCBs. 
The value is decremented by one for each 
ATLCB reference until the value reaches 
zero. The specified ATLCB is then inserted 
into the chain at this new location. 

Attention sources for the GSP GACB are 
now reenabled; the light pen restart option 
is set in the GSP GACB as specified in the 
ATTNFLGA field of the active ATLCB, and 
programmed function indicator lights are 
lit as specified in the ATTNLITE field of 
the active ATLCB. Control is then returned 
to the calling program. 

CANCEL Key (Panic Key) Routine (Module Name 
IFFAHA09) 



Chart : None 

Function : Presents to the user the follow- 
ing options: 

• Abnormally terminate the program and 
produce a dump. 

• Abnormally terminate the program with- 
out a dump. 

• Resume normal processing. 

Entry : IFFAHA09 from an attention caused by 
the depression of the CANCEL key. 



Exit: Abnormal termination 



via the ABEND 
key was de- 



macro instruction if the END 

pressed; or a return to the calling program 

if the CANCEL key was depressed. 



Input ; In 
panic GACB. 



register 1, the address of the 



Output s A dump may be produced if the END 
key was depressed. This depends on the 
null variable. If the null variable is 
negative, the dump is produced. If the 
null variable is positive, no dump is 
produced . 

Operation : After the registers are saved, 
work areas are set up, and a check is made 
to ensure that this routine was entered by 
a CANCEL key attention. If it was, the END 
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key is enabled and an attention is awaited 
from either the END or CANCEL key. The 
following action is taken when an attention 
is detected: 

• If from the END key, an ABEND macro 
instruction with appropriate completion 
code is issued to terminate the pro- 
gram. Whether the null variable is a 
negative or positive value determines 
whether or not a dump is produced. 

• If from the CANCEL key, the END key is 
disabled. 

SALRM (Module Name IFFACA13) 



Chart : None 

Funct ion : Sets the audible alarm on the 
2250. 

Entry : IFFACA13 from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : A single stroke of the audible 
alarm is sounded. 

Operation : GCNTRL macro instruction is 
issued to create the order for sounding the 
audible alarm. The DCB address used for 
this iracro instruction is obtained from the 
GTMGRECB field of the associated GTMCB. 



LIGHT PEN SUBROUTINES 

These subroutines facilitate two-way 
communication between the GSP program and 
the 2250 operator through use of the light 
pen. The subroutines involve locating a 
position on the screen at which the light 
pen is pointed (LOCPN) , and using the light 
pen to cause the program to move a tracking 
symbol from one screen location to another 
(BGTRK, RDTRK, and ENTRK) . 

LOCPN (Module Name IFFAGA01) 



Chart : None 

Function : Locates the coordinates on the 
screen to which the light pen is pointed. 

Entry : IFFAGA01 from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : The coordinates of the light pen 
detect are placed in the user-specified 
variables. 



Operation : A LOCPN GACB is created in the 
work area to accept the light pen atten- 
tion. The screen scanning orders are 
placed in the GDOA of the system GDS via 
ORGEN and then into the buffer via EXEC to 
start the display. Approximately 1/2 sec- 
ond after the start of the display, a check 
is made to determine if a light pen atten- 
tion occurred. 



If no light pen attention had occurred, 
regeneration of the display is started and 
scanning continues. 



If a light pen attention had occurred, 
the coordinates of the location of the 
light pen are converted to user units via 
CNVRT and are placed in the variables 
designated by the "xpos" and "ypos" param- 
eters. RESET is called to remove the 
screen scanning orders from the buffer. 
Before control is returned to the calling 
program, the LOCPN GACB is disabled. 



BGTRK (Module Name IFFAGA02) 



Chart : None 

Function : Displays tracking symbol at 
designated screen position. 

Entry : IFFAGA02 from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : The tracking symbol is displayed on 
the screen. 

Operation : The user-specified positioning 
coordinates are converted to raster units. 
If conversion was unsuccessful or if the 
coordinate values are off-screen, raster 
unit values corresponding to the center of 
the screen are assumed. The return code 
for scissoring is placed in the GSPARRAY 
field of the GSPCB, and processing contin- 
ues. 

Once the raster unit coordinate values 
are obtained, they are placed in the track 
routine orders. The orders are entered 
into the GDOA of the system GDS via ORGEN 
and then into the buffer to start the 
display via EXEC. 

If the track routine orders are already 
in the buffer, the tracking symbol is 
repositioned by writing the new coordinates 
into the buffer. The GTMREPOS field in the 
GTMCB contains the buffer address of the 
coordinates for the tracking symbol. 
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ENTRK (Module Name IFFAGA04) 



Chart : None 

Funct ion : Removes tracking symbol from the 
screen. 

Entry ; IFFAGA04 from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : None 

Operation : The GTMFLAGS field of the GTMCB 
is checked to see if the track routine 
orders are in the buffer. If they are, 
RESET is called to remove the orders from 
the buffer, and the indicator in the GTMCB 
is reset. Otherwise, control is immediate- 
ly returned to the calling program. 

RDTRK (Module Name IFFAGA03) 

Chart : None 

Function : Reads the current position of the 
tracking symbol from the buffer. 

Entry : IFFAGA03 from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output: The coordinates of the tracking 
symbol are placed in the user- specified 
variables. 

Operation : The GTMFLAGS field of the GTMCB 
is checked to see if the tracking routine 
orders are in the buffer. If they are not, 
control is immediately returned to the 
calling program. Otherwise, the GTMREPOS 
field of the GTMCB indicates where the 
current position of the tracking symbol can 
be found in the buffer. The coordinates 
are converted to user units via CNVRT and 
placed in the variables designated by the 
"xval" and "yval" parameters. If CNVRT 
fails to execute successfully, control is 
returned to the calling program along with 
an appropriate return code, and no values 
are placed in the user's variables. 

STATUS INFORMATION FUNCTIONS (MODULE NAMES 
IFFAJA01. IFFAJA02, IFFAJA03, AND IFFAJA04) 

These functions return status informa- 
tion about the execution of GSP subroutines 
to the user's program. The information is 
placed in word 6 (contents of register 0) 
of the save area in the user's program . 
Note that this area is not the save area in 



the routine (Director Part 2) that actually 
passed control to the function. 



The four functions are 
three routines as follows: 



performed by 



• ITRC (module name IFFAJA01) returns GSP 
return code information to the calling 
program. Depending on the value of the 
"code" parameter, the following infor- 
mation is returned: 

Value of "code" Value Placed in Word 6 



1, 2, 3, 4, 5 



The return 
higher than 
the value 
parameter. 



code if it is 

or equal to 

of the "code" 

If the return 



code is zero, a value of 
zero is placed in Word 6. 

9 Contents of corresponding 

additional information 
word in the GSPARRAY, pro- 
viding the value in Byte 1 
of the GSPARRAY is not 
zero. 

9 Maximum negative value, if 

the value in Byte 1 of the 
GSPARRAY is zero. 

Any other value Maximum negative value. 

• ITST (module name IFFAJA04) returns 
information identifying current options 
selected for the specified GDSCB. 
Depending on the value of the 
"optionsub" parameter, the following 
information is returned. 



Value of 
"optionsub* 

1, 2 



Value Placed in Word 6 

A value of 1-4, depending 
on the contents of the 
GDSDATMD field in the 
GDSCB. 

A value of 1-3, depending 
on the contents of the 
GDSCURMD field in the 
GDSCB. 

A value of 1-H f depending 
on the contents of the 
GDSCHARS field in the 
GDSCB. 



• ITBP (module name IFFAJA02) and RTBP 
(module name IFFAJA03) return the 



actual or desired beam position (actual 
is different from desired if scissoring 
occurred) for the specified GDSCB for 
integer and real coordinates respec- 
tively. Depending on the value of the 
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"info" parameter, 
is returned: 



the following information 



Value of 
"info" 



Value Placed in Word 6 

The contents of the GDSXLAST 
field of the GDSCB converted 
to user units via CNVRT sub- 
routine . 

The contents of the GDSXCURR 
field of the GDSCB converted 
to user units via CNVRT sub- 
routine . 

The contents of the GDSYLAST 
field of the GDSCB converted 
to user units via CNVRT sub- 
routine. 

The contents of the GDSYCURR 
field of the GDSCB converted 
to user units via CNVRT sub- 
routine. 



Note; If the information requested is not 
in the mode requested, the maximum negative 
value is returned in Word 6 of the save 
area. 

The entry point in each routine is the 
same as its module name. Entry is from 
Director Part 2. Exit is back to Director 
Part 2. 

Input to each of these routines consists 
of the address of a work area in register 
1. The first word of this area contains 
the address of the parameter list specified 
by the user in requesting the status infor- 
mation function. In the case of ITRC, the 
second word of the work area contains the 
address of the GSPARRAY. 

Each routine tests the parameters for 
validity. An invalid parameter causes con- 
trol to be returned to the calling program 
along with a value of zero in Word 6 
(contents of registor 0) of the save area 
in the user's program. 



STROKE TABLE CREATION AND USE 

This section contains information about 
the system stroke table, the creation of a 
stroke table, and describes the control 
information placed in a stroke table. The 
subroutine (DFSTR) that changes a stroke 
table, and the subroutine (PLSTR) that uses 
a stroke table to create orders and data 
for displaying symbols are also described 
in this section. 



System Stroke Table (Module Name IFFAHA16 
Alias GSP01) 

The GSP system stroke table resides in 
the link library (SYS1.LINKLIB) . Its con- 
tents and use are described in the publica- 
tion IBM System/360 Operating System; 
Graphic Programming Services for FORTRAN 
IV , Form C27-6932. 



Creating a Stroke Table 

The GSP programmer may create his own 
stroke table of addresses and space for 
defining the strokes. The method of creat- 
ing a stroke table is also described in the 
publication IBM System/360 Operating Sys- 
tem: Graphic Programming Services for FOR- 
TRAN IV . 

Stroke Table Control Information 

The first two words of any GSP stroke 
table contain control information which is 
either inserted or referred to whenever a 
stroke table is requested by the user. 



The first word contains 



the identifi- 
Once a stroke 



cation of the stroke table 
table has been loaded, this word is used to 
locate the stroke table specified in a call 
to DFSTR or PLSTR. When a stroke table is 
loaded, the value of the "table" parameter 
passed by the user is placed in this word. 
The value "01" identifies the GSP system 
stroke table. 



The 



second word contains 



chain 

address, which points to the main storage 
location where the next stroke table is 
loaded. The chain address is used to 
locate all stroke tables that are loaded 
after the first stroke table. When a 
stroke table is loaded, this word is set to 
zero. When the next stroke table is load- 
ed, the load address returned by the LOAD 
macro instruction is placed in this word. 
If this word is zero, it indicates the end 
of the chain of strokes tables. 

The address of the first stroke table 
loaded is placed in the GSPSTRTB field of 
the GSPCB. This stroke table is not neces- 
sarily the GSP system stroke table. 

DFSTR (Module Name IFFAGA05) 



Chart : None 

Function : Replaces a symbol currently in a 
stroke table with another symbol specified 
by the user. 

Entry : IFFAGA05 from Director Part 2. 

Exit : To the calling program. 
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Input ; See "Input to Many GSP Subroutines." 

Output : The strokes that create the new 
symbol are placed in the stroke table area 
that contained the strokes for creating the 
old symbol - 

Operation : If the specified stroke table is 
not yet in main storage, it is loaded and 
added to the chain of stroke tables. The 
new strokes in the user-specified array are 
then converted to the correct form Csee IBM 
System/360 Operating System; Graphic Pro- 
gramming Services for FORTRAN IV , Form 
C28-6932) and are placed in the stroke 
table area defined by the "symbol" parame- 
ter one at a time, overlaying any previous 
information in that area. Control is 
returned to the calling program when all 
the strokes have been transferred from the 
user's array. 

PLSTR (Module Name IFFAGA06) 



point of the next character (determined by 
the "spacing" parameter or by default). 

If a symbol is referred to which has no 
strokes defined for it, the next symbol is 
processed. No spacing occurs. 

If the element produced is not an update 
element and a level 1 key or correlation 
value is specified, the key is established 
and placed in the key table via Key Table 
Management. 

If the element is an update element. Key 
Table Management is called to verify the 
validity of the key or correlation value. 
Update is called to obtain a temporary GDOA 
before any initial beam positioning is 
done, and Update is recalled after the 
orders and data for producing all desired 
symbols have been placed in the GDOA to 
write these orders to the buffer. Control 
is then returned to the calling program. 



Chart ; GA 

Function : Causes graphic orders and data to 
be generated for displaying a symbol, the 
strokes of which are in a stroke table. 

Entry : IFFAGA06 from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : Orders and data are generated and 
stored in the GDOA to display the desired 
symbols. 

Operation : The stroke table referred to is 
located or brought into main storage via 
the LOAD macro instruction. It is added to 
the chain of stroke tables, if necessary. 
If the "xcoor" and "ycoor" parameters are 
provided, their values are scaled, scis- 
sored, and graphic orders and data are 
generated for positioning the beam to the 
specified location. Otherwise, the current 
beam position is used as the center point 
of the first symbol to be displayed. 

PLSTR locates the strokes necessary to 
produce a symbol, and converts each stroke 
from the stroke table format into a vector 
to be displayed on the screen, taking into 
account the height, width, and orientation 
provided by the user. Scissoring is called 
to scissor each stroke. Data Generator is 
called to create the orders and data for 
displaying the stroke, which are then 
placed in the GDOA before control is 
returned to PLSTR. This process is repeat- 
ed until the orders and data for producing 
all desired symbols have been placed in the 
GDOA. After each character has been gener- 
ated, the beam is positioned to the center 



DIRECT ORDER GENERATION SUBROUTINE 

The direct generation of graphic orders 
and data is accomplished through the use of 
the ORGEN subroutine. 

ORGEN (Module Name IFFAGA07) 



Charts: HA, HB 



Function: 



Moves 



user-specified graphic 
orders and data into a GDS from a main 
storage array. The logic of the moved 
orders is not checked. 

Entry : IFFAGA07 from Director Part 2. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 



Output : User-specified graphic orders 
data are placed in the designated GDS. 



and 



Operation : Processing by ORGEN depends upon 
the input parameters that are passed to it. 

If either "key" or "corrval" parameters, 
or both, are specified for a level 1 GDS, 
ORGEN establishes appropriate key and 
include/omit structures. The include/omit 
structure is stored in the GDOA preceding 
the graphic orders and data that are to be 
moved. 

If it is an update call. Key Table 
Management is called to verify the validity 
of the key or correlation value. 

If a key for a level 2 GDS is specified, 
ORGEN computes a new key and places it in 
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the variable designated as the "key" param- 
eter. 

In any case. Update is called to furnish 
one or more temporary GDOAs to be used by 
ORGEN to manipulate the graphic orders and 
data passed by the calling program. The 
graphic orders and data are moved to the 
temporary GDOAs. If a GDOA is filled 
before all orders and data have been trans- 
ferred, the set mode order for the next 
GDOA is established, and ORGEN moves orders 
and data to the next GDOA. If more than 
one temporary GDOA is obtained and this is 
not an update call, additional buffer is 
assigned via Buffer Management. The trans- 
fer orders from one GDOA to another are 
completed with the assigned buffer address- 
es. 

Address manipulation is accomplished 
within the set of graphic orders and data 
that are now in the temporary GDOAs. The 
entire set of orders and data is searched 
for set mode orders. As each set mode 
order is encountered, the following is 
performed: 



Non-address-type orders remain 
changed and the search continues. 



un- 



• Address-type orders that refer to a 
location within the array of orders and 
data are resolved by determining which 
GEOA contains the address referred to 
and then calculating the physical buf- 
fer address. This procedure is 
referred to as relocation. 

• Address-type orders that refer to a 
location represented by X'FFFF' are 
resolved by translating the logical 
address in the corresponding key into a 
physical buffer address. The key is 
not checked for validity. However, it 
is checked to ensure that it is asso- 
ciated with the specified GDS. 

If the call to ORGEN is not an update 
call , the contents of each temporary GDOA 
are moved, one GDOA at a time, to the 
original GDOA for the GDS. After the 
contents of each temporary GDOA have been 
transferred. Data Store is called to trans- 
fer data to the buffer assigned to that 
particular GDOA. Data Store is not called 
when the contents of the last GDOA have 
been moved. However, the OLP, LOGCURR, and 
LENLEFT fields of the original OACB are 
updated. (The user must call the EXEC 
subroutine to transfer this data to the 
buffer.) 

ORGEN then frees the storage obtained 
for temporary GDOAs and OACBs, completes 
the key, places the key in the user's 
variable (if specified), and proceeds to 
complete the include/omit structure via 



Data Store (if required) . The key is added 
to the key table via Key Table Management. 

In case of an update call , ORGEN com- 
pletes the include/omit structure as above, 
and then calls Update to write the tempora- 
ry GDOAs to the buffer and to release 
storage used for the temporary GDOAs and 
OACBs. If a correlation value is speci- 
fied, ORGEN places this value in the 
appropriate field of the key associated 
with the element. 

The GDSGRMOD field, which designates the 
current mode, is set to zero to indicate 
that a set mode order is required for the 
next call before control is returned to the 
calling program. 

If an error is detected during the 
operation of ORGEN , an appropriate return 
code is placed in the GSPARRAY field of the 
GSPCB. Storage obtained for the temporary 
GDOAs and OACBs is freed. If buffer was 
acquired. Buffer Management is called to 
release this buffer. Control is then 
returned to the calling program. 



CONVERTING COORDINATES SUBROUTINE 

The CNVRT subroutine converts coordi- 
nates from user values to raster units and 
vice versa. 

CNVRT (Module Name IFFAGA08) 



Chart : JA 

Function : Accomplishes the following: 

• Converts real or integer user coordi- 
nates to integer raster units. 

• Converts integer raster units to real 
or integer user coordinates. 

Entry : IFFAGA08 from Director Part 2, 
LOCPN, BGTRK, RDTRK, or RQATN. 

Exit : To the calling program. 

Input : See "Input to Many GSP Subroutines." 

Output : The converted information is placed 
in the user-specified variables. 

Operation : The following operations are 
performed, based on the specified value of 
the "convert" parameter: 

• If "convert" equals 1, input is assumed 
to be absolute, integer raster unit 
coordinates. If the GDSDATMD field of 
the GDSCB specifies real mode, the 
input values are converted to real. 
Then, these values are converted to 
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user units and placed in the user-specified 
variables. If the GDSDATMD field does not 
specify real mode, the integer values are 
converted to user units and placed in the 
user-specified variables. 

• If "convert" equals 2, input is assumed 
tc be absolute and either real or 
integer, as specified in the GDSDATMD 
field. An appropriate parameter list 
is set up for Scaling, and the GDSDATMD 
field is set to force absolute mode 
before Scaling is called to convert the 
values. Output from the Scaling rou- 
tine is absolute and integer. CNVRT 
places this output in the user- 
specified variables. 



INTERNAL ROUTINES 

Internal routines in GSP perform various 
services for GSP subroutines. These 
internal routines are described in detail 
according to the following categories: 

• Flow Control Management 

• Buffer Management 

• Key Table Management 

• Scaling and Scissoring of Input Data 

• Data Generation, Data Storing, and 
Updating 

FLOW CONTROL MANAGEMENT 

When INDEV is called to initialize the 
2250, Flow Control Management is used to 
establish and initialize the flow control 
table (FCT) in main storage and the flow 
control structure in a buffer section. 

During the processing of the user's 
program. Flow Control Management updates 
the FCT and the flow control structure as 
required and terminates their use when the 
use of the 2250 is terminated. 

Together, the FCT and the flow control 
structure manage the regeneration sequence 
of GDSs as specified in the user's program. 
The FCT is used to record the status 
(in-use or free) of eacn possible entry in 
the flow control structure. The flow con- 
trol structure governs the transfer of 
control to GDSs within the buffer. Both 
are described in the paragraphs that fol- 
low. 

Flow Control Table 

The FCT consists of ten bytes of control 
information followed by a series of two- 
byte entries that contain the buffer 



addresses for each flow control entry in 
the flow control structure, including the 
system GDS. A total of 24 flow control 
entries is permitted for the user's GDSs. 
Figure 10 shows the format and contents of 
the FCT at the time it is first initial- 
ized. 
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Figure 10. Flow Control Table Upon Ini- 
tialization 

In this figure, the address of the free 
list is the location in the FCT of the 
first buffer address that is free for 
entering the next flow control entry. 
Since the system GDS is always the first 
one in the order of flow control, the first 
available flow control entry is located at 
FCT + 12. Each time a flow control entry 
is used, the address of the free list is 
incremented by two bytes. Each time a flow 
control entry is released, this address is 
decremented by two bytes. All in-use 
entries are always in the first part of the 
FCT. All free entries are always in the 
latter part of the FCT. 

The length of the in-use list at FCT + 4 
is the total length (in bytes) of the 
entries in the FCT (beginning at FCT + 10 
to include the system GDS) that are point- 
ing to buffer locations currently being 
used for flow control entries. Initially, 
this field contains two. Each time a GDS 
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is assigned a flow control entry, the 
length is incremented by two bytes. When a 
GDS is deleted and its flow control entry 
is released, the length is decremented ty 
two bytes. This length field determines if 
all 24 entries have been used. 



The buffer address field contains the 
address of the buffer section assigned when 
Flow Control Management requested buffer 
for the flow control structure. The system 
GDS entry at FCT +10 is never deleted 
until the FCT is freed (i.e., use of the 
2250 is terminated) . The rest of the 
buffer addresses act as pointers to the 
flow control entries. During the process- 
ing of the user's program, these addresses 
may become rearranged and will not neces- 
sarily be sequential. However, the in- use 
addresses will always be at the beginning 
of the FCT, followed by the free addresses. 



Rearrangement occurs when the use of a 
GDS is terminated and its flow control 
entry is deleted, or when ORGDS is called. 
If the address of the flow control entry is 
not at the end of the in- use list when it 
is deleted, the remaining addresses in the 
in- use list are moved up two bytes in the 
table so that all the entries in the in-use 
list are together. The deleted flow con- 
trol entry address becomes the first free 
entry in the FCT, and the others in the 
free list remain untouched. Figure 11 
depicts an example of reordering in the 
FCT. 



This example shows the FCT in-use 
entries when six GDSs have been ini- 
tialized and included in the flow 
control structure. It also shows 
these same entries after the user has 
issued a call to ORGDS. 



FCT after six GDSs have been initialized: 
+12 | Buffer + 16 GDS1| Buffer + 26 GDS2| 
+16 | Buffer ♦ 36 GDS3| Buffer + 46 GDS4| 

I- 1 ^ 

+20 | Buffer + 56 GDS5| Buffer + 66 GDS6J 
CALL ORGDS (GDS5,GDS6, GDS3, GDS1,GDS2,GDS4) 



+12 [ Buffer + 56 GDS5| Buffer + 66 GDS6| 
,. ., ., 

+16 | Buffer + 36 GDS3J Buffer + 16 GDSlj 
+20 | Buffer + 26 GDS2| Buffer + 46 GDS4 | 

Figure 11. Reordering the FCT 



Flow Control Structure 

The flow control structure in the buffer 
section consists of six bytes that contain 
a GSRT order and a GTRU order to the system 
GDS flow control entry. The remaining 250 
bytes of this buffer segment contain a 
series of ten-byte entries required for 
each GDS. The system GDS is always 
assigned the first entry in the flow con- 
trol structure (located at buffer +6). 
The user's flow control entries begin at 
buffer +16. 

When a GDS is called into use, an entry 
is made in the flow control structure that 
governs the light pen mode setting, the 
transfer of control to the graphic orders 
and data in the GDS, and the transfer of 
control to the appropriate flow control 
entry when the execution of the GDS is 
complete. Each of the ten-byte flow con- 
trol entries contains a light pen mode 
setting order (i.e., GESD, GDPD, or GNOP2) 
in its first two bytes, a GTRU with the 
address of the GDS in the next four bytes, 
and a GTRU in the last four bytes. This 
last GTRU order contains either the address 
of the GSRT order at the beginning of the 
structure or the address of the next flow 
control entry in the structure. Figure 12 
depicts the flow control structure. 

Flow Control Management Routine (Module 
Name IFFAHA01) 



Charts : KA, KB 

Function : Manages the regeneration sequence 
of the GDSs in the buffer. To do so, it 
creates and maintains a flow control table 
(FCT) in main storage, and a flow control 
structure in a buffer section. The FCT and 
the flow control structure are described in 
detail in this section under "Flow Control 
Table" and "Flow Control Structure." 

Flow Control Management performs four 
different functions depending on the codes 
passed to it as input, as follows: 

Code 1 — Causes the FCT and the flow 
control structure to be initialized, and a 
data event control block (DECB) to be built 
following the FCT. 

Code 2 — Causes the specified GDS to be 
added to the flow control structure and the 
FCT to be updated accordingly. 

Code 3 — Causes the specified GDS to be 
deleted from the flow control structure and 
the FCT to be updated accordingly. 

Code 4 — Causes the flow control structure 
to be deleted, and frees the storage 
acquired for the FCT and the DECB. 
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Legend: 



Passing control to the graphic orders 

and data in a GDS 

Returning control to the flow control 

structure. 



Figure 12. Flow Control Structure 
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Entry : IFFAHA01 from INDEV, Data Store, 
TMGDS, or TMDEV routines. 



Exit ; To the calling program. 

Input ; In register 1, the address of a 
parameter list which varies with the call- 
ing program. The first word of the param- 
eter list for each of the four codes passed 
contains the actual code. The other fields 
in the parameter list contain information 
as follows : 

Codes 1 and 4 : 

+ 4 Address of the GTMCB. 

Code 2 : 

+ 4 Address of the GDSCB for the GDS to 

be added. 
+8 Address of the buffer assigned to 
this GDS. 

Code 3 ; 

+ 4 Address of the GDSCB for the GDS to be 
deleted. 

Output : Varies with the input code upon 
entry. See "Function" above. 

Operation : Flow Control Management first 
tests the code passed to it as input to 
determine the function required. The ser- 
vices performed for a corresponding func- 
tion are described in the paragraphs that 
follow. 

Code 1 — Buffer is acquired for the flow 
control structure. If this is completed 
successfully, storage for the FCT is 
obtained. If buffer is unavailable, con- 
trol is returned immediately to the calling 
program with the appropriate return code in 
the GSPAKRAY. If main storage is unavaila- 
ble, the buffer is released and control is 
returned to the calling program with the 
appropriate return code in the GSPARRAY. 

Next, the FCT is initialized, and a DECB 
(used for input/output operations) is built 
following the FCT. Graphic orders and data 
for initializing the flow control structure 
are written to the buffer. 

Code 2 — The address of the next free flow 
control entry is obtained from the FCT, - and 
the FCT is updated. Graphic orders and 
data for the new flow control entry for the 
specified GDS are written to the buffer. 

If all 24 flow control entries available 
to the GDSs have already been used, control 
is returned to the calling program with the 
appropriate return code. 

Code 3 — The GTMFCTBL field in the GTMCB 
is accessed to determine if the FCT is 
already freed (field is zero) , in which 



case control is returned immediately to the 
calling program. 

Otherwise, the GDSFCBUF field is 
accessed to determine if an entry was made 
in the flow control structure. If no entry 
exists, control is returned to the calling 
program. 

When the address of the flow control 
entry exists, the FCT is updated and the 
removed entry is made available again. 
Then, the flow control entry is removed 
from the flow control structure in the 
buffer. This is done by writing an address 
to the preceding flow control entry that 
will branch either to the beginning of the 
flow control structure (if the removed 
entry was the last one in use) , or around 
the flow control entry being removed. 

Code 4 — The buffer regeneration cycle is 
stopped, the main storage used for the FCT 
and the DECB is freed, and the GTMFCTBL and 
GTMDECB1 fields in the GTMCB are cleared. 

Note : Buffer assigned to the flow control 
structure is not released by this routine, 
but is released by the Buffer Management 
routine which is called by TMDEV. 



BUFFER MANAGEMENT 

Assignment and release of buffer for the 
GDSs is handled by Buffer Management 
through the use of a buffer control table 
(BCT) . Buffer Management consists of a 
buffer control table (BCT) and the Buffer 
Management routine, which creates, main- 
tains, and terminates the BCT. 

Buffer Control Table 

The BCT consists of 128 three-byte 
entries, each of which is associated with a 
256-byte buffer section. The INDEV subrou- 
tine obtains storage for the BCT following 
the GTMCB, and fills the entire table with 
zeros. 

Buffer Management completes the three- 
byte BCT entries with information 
indicating the status of each buffer sec- 
tion as it is assigned or released. Each 
BCT entry corresponds to one buffer section 
(256 bytes) . Entries are arranged in the 
table in ascending order as shown in Figure 
13. The appropriate BCT entry number is 
found by dividing the buffer address by 256 
(length of buffer) . The buffer address can 
be obtained by multiplying the entry number 
by 256. 

Generally, the BCT entry is divided into 
three one-byte fields which contain (1) the 
identification code that associates it with 
the appropriate GDSCB, (2) the pointer to 
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the next entry in the BCT for the same 
GDSCB, and (3) a count of the number of 
assignments made for this GDSCB. Specifi- 
cally, the three-byte BCT entry contains 
information as follows: 



If a buffer section is divided into two 
128-byte subsections , the first byte of 
the entry contains a code that iden- 
tifies the GDSCB associated with the 
first subsection. The second byte con- 
tains a code that identifies the GDSCB 
associated with the second subsection. 
The third byte always contains zeros. 
If either of the subsections is unas- 
signed, a code of X'80 f is placed in 
the byte associated with that subsec- 
tion. The code placed in the entry to 
identify each GDSCB ranges from X f 81" 
through X'FF* . 



If one 256-byte buffer section is 
assigned , the first byte of the entry 
contains a code that identifies the 
GESCB associated with this buffer sec- 
tion. The code ranges from x'Ol* 
through X'7F*. The second byte con- 
tains a pointer to itself in the form 
of the entry number in the BCT. The 
third byte contains a zero indicating 
that it is the first section assigned. 



• If another buffer section is obtained 
for the same GDSCB . the same identifi- 
cation code is placed in the first byte 
of the corresponding entry. The pre- 
vious entry assigned to this GDSCB is 
updated to point to this entry by 
placing this entry number into the 
second byte of the previous entry. 
Then, this entry is completed by set- 
ting the second byte to point to 
itself, and then adding one to the 
value in the third byte of the previous 
entry, and placing this sum in the 
third byte of the current entry. This 
serves as a count of the number of 
sections assigned to this GDSCB. Addi- 
tional buffer sections assigned are not 
necessarily contiguous. 

• If multiple buffer sections are 
assigned at one time to one GDSC B. the 
code for the GDSCB is placed in the 
first byte of each entry that corres- 
ponds to the buffer sections assigned. 
The second byte in the first entry is a 
pointer to itself (until additional 
buffer is assigned to this GDSCB) , and 
the third byte is zero, indicating that 
this is the first multiple section 
assigned. The second byte in the other 
entries contains a pointer (entry 
number) to the first entry, and the 
third byte in the other entries con- 



tains a X'FF* to indicate that they are 
part of a multiple assignment. Each 
multiple assignment consists of con- 
tiguous 256-byte buffer sections. How- 
ever, additional multiple sections are 
not necessarily contiguous with the 
other multiple sections assigned to a 
GDS. 



Note; The entry number multiplied by three 
results in the displacement of any given 
entry from the beginning of the BCT. 



Figure 13 shows an example of entries 
that may be made in the buffer control 
table by Buffer Management. The example 
depicts three buffer sections divided into 
128-byte subsections, the assignment of 
non-contiguous buffer sections to one 
GDSCB, the assignment of more than one 
multiple section to a GDSCB, and an unas- 
signed buffer section. 



Buffer Management Routine (Module Name 
IFFAHA02 ) 



Charts : KC, KD 

Function : Obtains buffer for the various 
GDSs, releases all or part of the buffer 
associated with a GDS, releases all buffer 
associated with a 2250, and keeps informa- 
tion as to which GDS is assigned which 
buffer sections. 

Entry ; IFFAHA02 from Data Store, TMGDS, 
TMDEV, ORGEN, and RESET routines. 

Exit : To the calling program. 

Input : In register 1, the address of a work 
area, the first word of which points to a 
parameter list. This parameter list varies 
depending on the service desired. The 
first word of the parameter list always 
contains the code that specifies the ser- 
vice desired. The services and their re- 
spective parameter lists are: 

• Allocate 128-byte buffer subsection to 
a GDS being initialized. 

+0 ("code") 1 

+4 ("gdscb") Address of the GDSCB being 

initialized. 

• Allocate 256-byte buffer section (s) to 
a GDS being initialized. 

+0 ("code") 2 

+4 ("gdscb") Address of the GDSCB being 

initialized. 

+8 ("gdslength") Size of buffer to be 

allocated. 
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Buffer 
Address 




256 
512 



Entry Number 

In BCT 

( Bexadecimal) 

X'OO 1 |X g 86' 



1 



768 



X , 02* 

x'oa* 



1024 






I- +~ 

1280 



j. 



1536 
1792 



2048 



+-- 



230 4 



>. 

2560 

2816 
3072 



T 

I 

V T 

First 
Byte 



X'Ol' 









X , 04' 



x^os' 



X'42* 



+ 



x'oe' ix'so' 



+-- 



X , 07« 



x^os 1 



X*09' 



+- 



+-" 



I 
I 



X'OA* 
X'OB f 

X'OC 



BCT Entries | 

t 1 

Third 



x^e* 



+- 



X'42 f 



X'42' 



X'36 1 



X , 02* 

+ 

X'OC 



X f 42 

+ + 

X*42 g 



X«42* 

x^e^ 

+ 

X"96' 

x^e* 



Second 
Byte 

+ 

X'92 1 

x'05" 



X , 07* 



X'OO' | Two 128-byte subsections assigned 

X f 00' | First 256-byte section assigned 

X'OO' 1 First section of a 768-byte assign- 
ment 



X , 02' 



X'FF* 



Second section of a 768-byte 
assignment 

Third section of a 768-byte assign- 
ment 

Second 256-byte section assigned to 
GDSCB with code ■ 36" 



X'AA' 






X f 07 f 

+ 

X , 07 i 



+ + + 

X'07 f 



X'OA* 



x'80" 



X'OA" 



Byte 



X'FF* 



X'Ol" 






X'OO* 



X'01" 



X'FF' 



X » FF i 
X'OS' 



X'OO* 






X'02' 



Comments 



First subsection unassigned, and 
second subsection assigned 



Second multiple assignment 






Second 256-byte section of multiple 
assignment 



Last 256-byte section of multiple 
assignment 



Fourth section assigned to GDSCB 
with code *36* 

First subsection assigned, second 
subsection unassigned 



Third section assigned to GDSCB 
with code "36 f 

| 3328 | X'OD' IX" 00' IX'OO' jX , 00 i j Unassigned buffer section 









Figure 13. Example of Buffer Control Table Entries 



• Allocate an additional 256 bytes of 
buffer, or more, to a GDS which has 
buffer already allocated. 

+0 (-code") 3 

+ 4 ("gdscb") Address of the GDSCB. 

• Release a 128-byte buffer subsection 
allocated to a GDS to be terminated. 

+0 ("code") 4 

+ 4 ("gdscb") Address of the GDSCB to be 

terminated - 

• Release all 256-byte buffer sections 
allocated to a GDS to be terminated. 

+0 ("code") 5 



• Release one or more 256-byte buffer 
sections most recently allocated to a 
GDS that is to remain in use. 

+0 ("code") 6 

+4 ("gdscb") Address of GDSCB. 

+8 ("bufloc") Address of buffer after 

which sections are to be released. 

This section is not released. 

• Release all buffer currently assigned 
to a GTMCB being terminated. 

+0 ("code") 7 

+4 ("gtmcb") Address of GTMCB to be 

terminated. 

Output : Varies according to the "code" 



4 ("gdscb") Address of GDSCB to be specified in input parameter list. See 



terminated. 



Operation" for this routine. 
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Operation : Depending on the value of the 
"code" parameter, control is transferred to 
the appropriate routine within this module. 
(The services associated with each "code" 
parameter are described under "Input" 
above . ) 

The operations of the service routines 
are described in the following paragraphs 
under their respective codes. 

Code 1 — A 128-byte buffer subsection is 
obtained by searching the BCT. If the 
first byte of a BCT entry indicates an 
assigned subsection, the second byte of the 
entry is investigated. 

If no unassigned subsection is found, 
buffer is obtained. The buffer address is 
saved, the BCT entry number associated with 
that buffer address is placed in the 
GDSBCTEL field of the GDSCB, and the second 
byte of that entry is set to X^O*. 

If an unassigned subsection is found by 
searching the BCT, the buffer address is 
saved and the BCT entry number is placed in 
the GESBCTEL field of the GDSCB. 

The identification code, which is to be 
placed in the BCT entry and the GDSBCTID 
field of the GDSCB, is now obtained in the 
following manner. The value of the 
GTMBCTSM field in the GTMCB is compared to 
X'7E' . If it is less than or equal to 
X'7E' , this field plus a X'81* forms the 
code. A X*01' is then added to this field 
so that the next code can be computed. 

When the GTMBCTSM field compares higher 
than X^E* , all the possible identification 
codes have already been used once. Howev- 
er, only 24 GDSs can be associated with 
each 2250 at any one time. Thus, some of 
the identification codes must be available 
for use again since at least one associated 
GDS must have been terminated. When the 
GDS is terminated, its code is removed from 
the BCT entry. Every possible code is now 
compared to every code still assigned in 
the ECT until one that is not in use is 
obtained. 

Once an identification code is deter- 
mined, it is placed in the appropriate 
fields of the BCT and the GDSCB. The 
buffer address of the allocated subsection 
is placed in register 1, and control is 
returned to the calling program. 

Code 2 — A 256-byte buffer section, or 
contiguous multiple thereof, is obtained. 
If insufficient buffer is available, con- 
trol is returned to the calling program 
along with an appropriate return code. 
Otherwise, the buffer address is saved and 
the ECT entry number is placed in the 
GDSCB . 



The identification code, which is to be 
placed in the BCT entry and the GDSBCTID 
field of GDSCB, is now obtained in the 
following manner. The value of the 
GTMBCTLG field in the GTMCB is compared to 
X*7E*. If it is less than or equal to 
X^E", a one is added to the field and this 
sum is used as the code. 

When the GTMBCTLG field compares higher 
than X % 7E* t the code is determined in the 
same manner that it was for Code 1 when the 
GTMBCTSM field was higher than X*7E' . 

Once an identification code is deter- 
mined, it is placed in the appropriate 
fields of the BCT and GDSCB. The number of 
256-byte buffer sections obtained is deter- 
mined, the entry number of the first asso- 
ciated BCT entry is placed in the GDSCB, 
and the BCT is appropriately completed (see 
"Buffer Control Table"). Control is then 
returned to the calling program. 

Code 3 — An additional 256-byte buffer 
section, or contiguous multiple thereof, is 
obtained. If a 128-byte buffer subsection 
was previously obtained for this GDS, con- 
trol is returned to the calling program 
along with an appropriate return code. 
Otherwise, the amount of buffer desired 
(from the length specified in the GDSGDOAL 
field of the GDSCB) is obtained. 

The number of buffer sections is deter- 
mined, and appropriate entries are complet- 
ed in the BCT (see "Buffer Control Table"). 
Register 1 contains the buffer address. 
Control is then returned to the calling 
program. 

Code U — A 128-byte buffer subsection is 
released, and the BCT entry is set to 
X^O*. If the byte designating the other 
subsection contains X^O", the buffer is 
released and the entire BCT entry is set to 
zeros. The GDSBCTEL and GDSBCTID fields in 
the GDSCB that contain the BCT entry number 
and the identification code associated with 
the buffer just released are also set to 
zeros. Control is then returned to the 
calling program. 

Code 5 — All buffer assigned to the GDS 
being terminated is released. After the 
BCT entry number is saved, the GDSBCTEL and 
GDSBCTID fields in the GDSCB are set to 
zeros. The first buffer address is 
obtained by multiplying by 256, and the 
pointer to the next buffer section to be 
released is contained in the BCT entry. 
Each time the buffer associated with an 
entry is released, the BCT entry is set to 
zeros. When all buffer assigned to this 
GDSCB is released, control is returned to 
the calling program. 

Code 6 — All buffer allocated to a GDS 
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more recently than the buffer section spec- 
ified by the "bufloc" parameter is 
released. If the buffer to be released is 
not the last section obtained, all sections 
obtained after it are released in the same 
manner as they were for Code 5. However, 
the GESCB fields cleared for Code 5 are not 
cleared because some buffer is still asso- 
ciated with the GDSCB. When all specified 
buffer is released, control is returned to 
the calling program. 



Code 7 — All buffer currently assigned to 
a 22 50 being terminated is released. The 
entire BCT is set to zeros. As each GDSCB 
associated with the specified 2250 is 
referred to, the GDSBCTEL and GDSBCTID 
fields are set to zeros. Control is then 
returned to the calling program. 



KEY TAELE MANAGEMENT 

When standard GSP keying and correlating 
features are used, known as level 1, Key 
Table Management is called upon to create 
and maintain a key table for each GDS that 
has keys and/or correlation values speci- 
fied in the program. The key table is used 
for storing keys associated with key and 
correlation values as they are assigned 
within each GDS. If the programmer uses 
his own correlation scheme, known as level 
2, Key Table Management is bypassed. 



Key Table 

The key table is a list of all keys and 
correlation values assigned for a level 1 
GDS. The table occupies one or more 
496-byte blocks of storage. These blocks 
are chained together, but may or may not be 
in contiguous locations. The address of 
the key table is entered in the GDSKEYTB 
field of the GDSCB. 



Each block in the key table contains 12 
bytes (three words) of control information 
followed by a series of 12-byte key entries 
(called keys). There may be up to 40 
entries in a block. The last word of each 
block is not used. The key table format 
and contents are shown in Figure 14. 

The control information is set up as 
follows: 

Word 1 — Contains the chaining address, 
which is zero in the last block acquired 
for the key table. If the address is not 
zero, it contains the address of the next 
block of storage used to continue the key 
table. 



+0 

+ 4 

+ 8 

+12 

+24 



4 Bytes 

Chain address (zero if last block) 
Next available space for key entry 
Address of last word in block 
Key 1 (12 bytes of information) 



H 



Key 2 (12 bytes of information) 



j. j 

+480 | Key 40 (12 bytes of information) j 



+492 j 



Not used 



Figure 14. The Key Table 



Word 2 — Contains the address of the next 
unused space in the block. If there is no 
space available for key entries in the 
block, this address points to the last word 
in the block. If space is available in the 
block, this address indicates the location 
where the next key can be added. It also 
indicates that the end of the table has 
been reached when a search for key or 
correlation value is made. 

Word 3 — Contains the address of the last 
word of the block (the unused word) . When 
the address in word 3 is the same as the 
address in word 2, the block is full and 
another block of storage must be acquired 
for additional keys. 



GSP Keys 

Keys consist of 12 bytes (three words) 
of information about the element, sequence, 
buffer subroutine, or buffer subroutine 
linkage associated with the specified key 
or correlation value. 

If a level 1 GDS is being used, and an 
update is not requested, certain GSP 
subroutines compose key values and set up 
key entries for both the keys and the 
correlation values that are specified by 
the user. A correlation value causes a 
standard key to be structured with the 
correlation value placed in tne third word 
of the key entry. If update of an element 
is specified, this key is used to locate 
the element to be updated. Keys are 
entered in the key table and removed from 
the key table as described under "Key Table 
Management Routine." 
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Each key consists of the following three 
words : 



Word 1 — The first two bytes contain a 
value indicating the amount of buffer space 
(in bytes) used to store the graphic orders 
and data for the element, sequence, or 
buffer subroutine associated with this key. 
The next two bytes contain a value indicat- 
ing the logical buffer start address, 
formed by determining the total amount of 
storage previously used for storing graphic 
orders and data for this GDS. This address 
is net the same as the physical buffer 
address. 



Word 2 — The first byte contains eight 
flag bit settings that describe the input 
data associated with the key. The second 
byte, used only for a single request, 
consists of data that is to be inserted in 
the second byte of the image generation 
order, to indicate blanking or unblanking 
of the beam. The third byte contains a 
count of characters if text input is asso- 
ciated with the key. The fourth byte 
contains flags required for updating. 

Word 3 — Contains the correlation value, 
if any, specified by the user. Otherwise, 
it contains zero. 

Table 5 lists the information that is 
placed in the three words of a GSP key. It 
also shows the arrangement of this informa- 
tion in the various fields. 



Key Table Management Routine (Module Name 
1FFAHA03) 



Chart: KE 

Function : Builds and maintains a key table, 
and upon request: 

• Locates a key in the key table. 

• Adds a key to the key table. 

• Resets the key table from a specified 
key. 

• Deletes an entire key table. 

Entry : IFFAHA03 from INCL/OMIT, PLINE/PPNT, 
STPOS/MVPOS, PSGMT, PTEXT, STEOS , 
BGSEQ/EGSUB, ENSEQ, ENSUB, LKSUB, RESET, 
ICURS, GSPRD, ORGEN, PLSTR, and TMGDS sub- 
routines. 

Exit : To the calling program. 

Input : In register 1, the address of the 
following parameter list: 



Table 5. GSP Key Information 

r t t 

| Word No. | Bit No. | Contents 

I-- 



Word 1 



Word 2 



Word 3 



0-15 
16 - 31 







2-4 



6-7 



8-15 



16 - 23 



24 



25 



26 - 31 



0-31 



Buffer length 



Logical buffer start 
address 



= Single entry 

1 = Multiple entry 



-i 



= First order is not 

set mode 

1 = First order is set 

mode 



Output is : 

000 = Line 

001 = Character 

010 = Point 

011 = Subroutine 

linkage 

100 = Sequence 

101 = Buffer subrou- 

tine 

110 = End Order 

Sequence order 

111 = ORGEN 



= Omit 

1 = Include 



00 = X,Y are absolute 

01 = X,Y are incre- 

mental 



+- 



One byte of data 



Count of characters 



= Not part of buffer 

subroutine 

1 = Part of buffer sub- 

routine 



+- 



= Not part of a 

sequence 

1 = Part of a sequence 



Reserved 



Correlation value 
(if specified) 



+0 GDSCB address. 

+4 Address of a code that designates the 
function to be performed by this 
execution of Key Table Management. 
The code is one of the following: 

1 = add a key 

2 = search for a key 

3 = reset from a key 

4 = delete the key table 

5 = search for a correlation value 
+8 Address of key or correlation value 

(or zero) . 
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Output: For the various codes, as follows: 



Code 1 — If no key table exists for this 
GDS, one is built and its address is placed 
in the GDSKEYTB field of the GDSCB. The 
key is entered in the table, and control 
information is updated. 

Codes 2 or 5 — In register 1, the address 
of the key in the key table. 

Code 3 — Starting with the specified key, 
the keys for a GDS are made inaccessible. 
Any blocks of storage beyond the one con- 
taining the specified key are freed. Con- 
trol information is updated. 

Code 4 — Storage used for the key table is 
released, and the key table address is 
removed from the GDSCB. 

Operation : The code in the input parameter 
list is tested, and, depending upon the 
code designated, the following operations 
are performed: 

Code 1 — The routine tests for a key table 
address in the GDSCB. If there is none, 
storage is obtained and the key table is 
initialized. If the key table block is 
full, additional storage is obtained. The 
first 12 bytes of this storage are set up 
with control information (see "Key Table") , 
and the beginning address of this storage 
block is placed in the first word of the 
preceding storage block in the key table. 
The key is placed in the key table, the 
address in Word 2 of the control portion of 
the block is updated to reflect the next 
available entry address, and control is 
returned to the calling program. 

If a key table has already been set up 
and is not full, the routine simply places 
the key in the key table at the next 
available address indicated in the control 
portion of the block, and increments the 
next available entry address in Word 2. 

Code 2 — The key table address is obtained 
from the GDSCB. If it is zero, an error 
return is made immediately to the calling 
program. If it is not zero, a search is 
made for the key. The search consists of 
comparing the key value from the input 
parameter list to each key in the key table 
until a matching value is found. Then, the 
address of the key within the key table is 
placed in register 1, and control is 
returned to the calling program. 

Code 3 — The key table address is obtained 
from the GDSCB. If it is zero, an immedi- 
ate error return is made to the calling 
routine. If it is not zero, a search is 
made for the specified key. When the key 
is found in the key table, its address is 



placed in Word 2 of the control portion 
making it the next available entry. Any 
blocks of storage that were used for the 
key table that follow this block are 
released. Control is returned to the call- 
ing program. 

Code 4 — The key table address is set to 
zero in the GDSKEYTB field of the GDSCB, 
and all blocks of storage used for the key 
table are released. Control is returned to 
the calling program. 



Code 



as descr 

correlat 

find the 

located 

the same 

register 

calling 



— The steps performed are the same 
ibed under Code 2, except that the 
ion value is used for the search to 
key. The address of the first key 
within the key table that contains 
correlation value is placed in 
1. Control is returned to the 
program. 



SCALING AND SCISSORING OF INPUT DATA 

Scaling and scissoring of input data is 
accomplished by two routines which are 
described in the paragraphs that follow. 
These routines are called during the gener- 
ation of graphic orders and data by the 
image generation subroutines. 



Scaling Routine (Module Name IFFAHA06) 



Chart : KF 

Function : Performs the following: 

• Scales user input coordinates to raster 
units (integer) . 

• Converts any real number to integer. 

Entry : IFFAHA06 for scaling. IFFAHA15 for 
converting real numbers to integer. 

Exit : To the calling program. 

Input : For entry at IFFAHA06, in register 
1, the address of a work/save area. The 
first word of this area contains the 
address of the following parameter list: 
+ Address of the GDSCB. 

+ 4 Address of the GSPARRAY. 

+8 A data array consisting of eleven 
full words. The first four words 
of this array are ignored. The 
next four words contain the input 
coordinates as follows: 

+24 SCAXABS Absolute value of x- 
coordinate, or zero if 
it is incremental. 
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+28 SCAYABS Absolute value of y- 
coordinate, or zero if 
it is incremental. 

+ 32 SCAXINC Incremental value of x- 
coordinate, or zero if 
it is absolute. 

+36 SCAYINC Incremental value of y- 
coordinate, or zero if 
it is absolute. 



+40 



These two 
ignored. 



words are 



+48 SCAPTCNT Count of points scaled 
to date. 

For entry at IFFAHA15, in register 1, 
the number to be converted from real to 
integer. 

Output ; Both the incremental and absolute 
values are computed and placed in the data 
array fields (SCAXABS, SCAXINC, SCAYABS, 
SCAYINC). If entry was at IFFAHA15, reg- 
ister 1 contains the results of the conver- 
sion from real to integer. For both 
entries, register 15 contains zero if scal- 
ing and conversion were completed success- 
fully, or four if scaling or conversion was 
unsuccessful. The GSP ARRAY field is set as 
required. 

Operation ; Scaling computes the scaled 
value of the input coordinates according to 
their input data mode as determined by the 
GDSDATMD field of the GDSCB. Based on 
values found in various GDSCB fields, the 
computations are made as indicated in Table 
6. If the input coordinates are real, they 
are first computed with real numbers, and 
then converted to integer. If the conver- 
sion is unsuccessful, the GSPARRAY is 
appropriately set to specify a scaling 
error, and control is returned to the 
calling program. 

If the scaled values for the x- 
coordinate are successfully obtained, the 
scaled values for the y-coordinate are 
computed. This is accomplished in the same 
manner as for the x- coordinate (shown in 
Table 6) , except that the corresponding 
GDSCB fields dealing with the y-coordinate 
are used in the computation. When all 
scaled values have been obtained, control 
is returned to the calling program. 



Scissoring Routine (Module Name IFFAHA07) 



Chart ; KG 

Function ; Scissors data according to the 
option specified in the most recent call to 
the SSCIS subroutine. 



Entry ; IFFAHA07 from PLINE/PPNT, PSGMT, 
STPOS/MVPOS, PTEXT, IDPOS, and PLSTR 
subroutines. 

Exit ; To the calling program. 



Input ; In register 1, the address of a 
work/save area. The first word of this 
area contains the address of the 
input/output array shown in Table 7. 

Output ; Positioning coordinates (absolute 
and incremental, blanked or unblanked mode) 
are placed in the input/output array if 
either the current or any previous data was 
within screen limits (see "Input"). The 
appropriate return code is placed in the 
GSPARRAY field of the GSPCB and in register 
15. The GDSXCURR, GDSYCURR, GDSXLAST, and 
GDSYLAST fields in the GDSCB are updated as 
necessary. 

Operation ; Coordinates for data that fall 
within the prescribed limits are placed in 
the unblanked area (+24 through +36) of the 
input/output array (see "Input"). Coordi- 
nates for any data that falls outside the 
prescribed limits are placed in the blanked 
area (+8 through +20) of that array unless 
image generation is not to be continued 
when this occurs. If image generation is 
not to be continued, only the coordinates 
that fall within the screen limits are 
passed in the unblanked area of the 
input/output array; no coordinates are 
placed in the blanked area. 

All fields in the GDSCB mentioned under 
"Output" are updated except when no data 
has been plotted within screen limits. In 
this case, the GDSXCURR and GDSYCURR fields 
of the GDSCB are not updated. 

Figure 15 shows examples of the applica- 
tion of scissoring options. The boundary 
refers to the prescribed limits (either GDS 
or screen) as specified in the GDSSCISS 
field of the GDSCB. The values of these 
limits for the GDS are also specified in 
the GDSCB. If the GDS limits are off the 
screen for any boundary, then Scissoring 
assumes the screen limits for that particu- 
lar boundary. These limits determine 
whether or not there is an intersection 
with any boundary, and how many intersec- 
tions occur (0, 1, or 2). 

In Figure 15, points and intersections 
are indicated by dots and labeled appropri- 
ately. In all cases, plotting takes place 
in the direction from the previous point to 
the current point. Broken lines indicate 
the portions of the lines that are not 
displayed. Solid lines indicate those 
lines that are plotted and displayed. The 
orders that are generated in each case are 
also indicated. 
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Table 



Formulas Used in Scaling 



r t 

| Mode for X-Coordinate J Values Placed in Data Array 



Integer, absolute 


ISCAXABS = 
|SCAXINC = 


GDSXVIUR - GDSXVILL 
GDSUVLUR - GDSUVLLL 

SCAXABS - GDSXCURR 


times 


SCAXABS 


(input) 


+ 


GDSUVLLL 
GDSXVILL 


Integer, incremental 


(SCAXINC = 

ISCAXABS = 
| SCAXINC* = 


GDSXVIUR - GDSXVILL 
GDSUVLUR - GDSUVLLL 

SCAXINC + GDSXLAST 
SCAXABS - GDSXCURR 


times 


SCAXINC 


(input) 






Real , absolute 


j SCAXABS 2 = 
| SCAXINC = 


GDSXVRUR - GDSXVRLL 
GDSUVLUR - GDSUVLLL 

SCAXABS 2 - GDSXCURR 


tiroes 


SCAXABS 


(input) 


+ 


GDSUVLLL 
GDSXVRLL 


Real, incremental 


| SCAXINC 2 = 

ISCAXABS = 
| SCAXINC i = 


GDSXVRUR - GDSXVRLL 
GDSUVLUR - GDSUVLLL 

SCAXINC 2 + GDSXLAST 
SCAXABS - GDSXCURR 


times 


SCAXINC 


(input) 







|. X -j 

^-Indicates this is the final output value passed to the calling program. Computations 

are performed in the order shown. 
2 Indicates this is an integer value. It is first computed with real numbers, and then 

converted to integer. 



Table 7. Input/Output 


Data Array for Scissoring 






r 

| Displacement 










| in Bytes 




Input 


Output 














1 + o 




Address of GDSCB 


Same as input 




1 + * 




Address of return code 
array 


Same as input 




1 + 8 




Zero 


X-coordinate, 


absolute, blanked 


| +12 




Zero 


Y-coordinate , 


absolute, blanked 


| +16 




Zero 


X-coordinate , 


incremental, blanked 


| +20 




Zero 


Y-coordinate , 


incremental, blanked 


| +24 




X-coordinate, absolute 
(to be scissored) 


X-coordinate , 


absolute, unblanked 


| +28 




Y-coordinate, absolute 
(to be scissored) 


Y-coordinate , 


absolute, unblanked 


| +32 




X-coordinate, increm- 
ental (to be scissored) 


X- coordi nat e , 


incremental, 

unblanked 


| +36 




Y-coordinate, increm- 
ental (to be scissored) 


Y-coordinate , 


incremental, 

unblanked 


| +40 




Total x- increment 
to date 


Same as input 




| + 44 




Total y-increment 
to date 


Same as input 




J +48 




Number of points 
scissored to date 


Same as input 





L ± 



J 
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Number of Intersections 



If the previous point 
is outside the boundary, 
and the current point 
is within or on the 
boundary: 

NOTE: intersections 

indicates that the 
current point is 
directly on 
boundary. 



Orders Generated 



If the previous point 
is within or on the 
boundary, and the 
current point is 
outside the boundary: 

NOTE: intersections 

indicates that the 
previous point is 
directly on 
boundary. 



Orders Generated 



If the previous and 
the current points 
are both outside 
boundaries: 



NOTE: 



1 intersections 
indicates that 
it intersects 
directly on the 
boundary. 



• Previous point 

\ 
\ 
\ 



Orders Generated 



Current point (P2) 



GDV P2X, P2Y, B 
GDV P2X, P2Y, U 



f S Previous point 



•^Current point 



None 



\ 



Previous point 



\ 



k Current point 



None 



* Current point (P2) 



J Intersect (II) 
• Previous point 



GDV I1X, I1Y, B 
GDV P2X, P2Y, U 



• Current point 

\ 

V Int ersect (I I) 

• Previous point 

I 



Not applicable 



Not applicable 



Not applicable 



GDV I1X, I1Y, U 



A 

•^Previous point 



•• Current point 
•^Intersect 



None 



Not applicable 



• Current point 

V Intersect 2 (12) 




Intersect 1 (II) \ 



Previous point 



GDV I1X, I1Y, B 
GDV I2X, I2Y, U 



NOTE: If both the previous point and the current point are within boundaries, no 
scissoring occurs. The order generated would be GDV P2X, P2Y, U. 



Legend: 
X 
Y 
B 
U 



= x-coordinate of specified point or intersection, 
= y-coordinate of specified point or intersection, 
= blanked beam. 
= unblanked beam. 

Indicates portion of line that is not displayed. 

Indicates that line is plotted and displayed. 



Figure 15. Examples of Scissoring 
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DATA GENERATION, DATA STORING, AND UPDATING 

The Data Generator routine uses informa- 
tion passed to it by image generation 
subroutines and produces the graphic orders 
and data for displaying appropriate images. 
The Data Store routine places the orders 
and data produced by Data Generation in the 
GDOA so that they can be written to the 
buffer and executed by the 2250. The 
Update routine handles functions made nec- 
essary when the update facility is applied. 
These three routines are described in the 
paragraphs that follow. 

To assist in understanding the struc- 
tures of the various elements, sequences, 
and buffer subroutines that are created 
during image generation, there are four 
figures included in this section. These 
figures are: 

• Figure 16, which depicts the include 
and omit structures for single keyed 
elements, and for multiple keyed and 
non- keyed elements. 

• Figure 17, which depicts the buffer 
subroutine structure and linkage, both 
keyed and non- keyed. 

• Figure 18, which depicts the structure 
of keyed sequences in both include and 
oirit status. 

• Figure 19, which depicts the GDOAs and 
their logical and physical buffer 
addresses. 



Data Generator Routine (Module Name 
IFFAHA04) 



Chart ; KH 

Function i Generates the graphic orders and 
data necessary for performing the function 
requested by a call to an image generation 
subroutine. Calls Data Store to place 
orders and data in the GDOA for the GDS 
associated with the element to be produced. 

Entry : IFFAHA04 from PLINE/PPNT, 
STPOS/MVPOS, PSGMT, PTEXT, or PLSTR subrou- 
tines . 

Exit : To the calling program. 

Input : In register 1, the address of the 
following parameter list: 



Displacement 
(In Bytes) 

+ 



+2 



+4 



+ 8 



+12 



Contents 

A value indicating the 
length of the available buf- 
fer. This value is zero if 



+16 



+20 



+24 



+28 



+32 



+36 



+40 



+44 



+48 



+52 



+56 



the element is not an update 
element . 

A value indicating the logi- 
cal buffer start address of 
the entire element. 

Information about the data 
to be generated. This word 
is called the data informa- 
tion word. Its contents are 
depicted in Table 8. 

The correlation value of the 
element or sequence asso- 
ciated with this cycle of 
Data Generator. This value 
is zero if the element is 
not correlated. 

The address of the user's 
variable where the key is to 
be placed. This field is 
zero if the element is not 
keyed. 

The address of the associat- 
ed GDSCB. 

The address of the return 
code array in the GSPCB. 

A value indicating the x- 
coordinate, in absolute 
form, for positioning the 
beam. 

A value indicating the y- 
coordinate, in absolute 
form, for positioning the 
beam. 

A value indicating the x- 
coordinate, in incremental 
form, for positioning the 
beam. 

A value indicating the y- 
coordinate, in incremental 
form, for positioning the 
beam. 



A value 

absolute 

requested. 



indicating the 
x- coordinate 



A value indicating the abso- 
lute y-coordinate requested. 

A value indicating the 
incremental x-coordinate 
requested. 

A value indicating the 
incremental y-coordinate 
requested. 

A value indicating the total 
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of all x-coordinate incre- 
ments requested. This will 
be zero upon entering the 
first cycle. 

+60 A value indicating the total 
of all y- coordinate incre- 
ments requested. This will 
be zero upon entering the 
first cycle. 

Table 8. Contents of Data Information 
Word Used by Data Generator 

r t : n 

| Bit Number | Interpretation of Setting | 



1- 


+- 




„ ., 


1 o 




= 


Single request | 






1 = 


Multiple requests | 


L 


4« 




J 


r 


T 




1 


1 1 




Reserved | 


J. 


+- 




., 


| 2-4 




Output will be: | 






000 


= Line | 






001 


= Character | 






010 


= Point | 






011 


= Subroutine linkage | 






100 


= Sequence | 






101 


= Buffer subroutine | 






110 


= End-order- sequence | 






111 


= ORGEN | 




4-- 








T 






1 5 




= 


Omit status | 




4- 


1 = 


Include status | 




T 






| 6-7 




00 = 


= X,Y are absolute | 






01 = 


= X,Y are incremental | 




4-- 


11 = 


= X,Y are optimized | 




T 






| 8-15 




Reserved | 




4-- 








T 






| 16-17 




00 = 


= First cycle (request) | 






01 = 


= Not first or last | 




4~ 


11 = 


= Last cycle (request) | 




T 






| 18 




= 


Data not keyed, level 1 | 






1 = 


Data keyed, level 1 | 




4-- 








T 






| 19 




= 


Data not correlated | 






1 = 


Data correlated | 




+ . 






| 20 




= 


Beam blanked (off) | 






1 = 


Beam unblanked (on) | 




+- 






1 21 




= 


Repositioning element | 
required j 




4-- 


1 = 


No repositioning | 
element required | 




T 






| 22-23 




Reserved | 




4— 








T 






| 24 




= 


Not part of subroutine | 






1 = 


Part of subroutine | 




+- 






1 25 




= 


Not part of sequence | 






1 = 


Part of sequence | 




+ - 







Output ; Graphic orders and data for the 
associated GDS in a form that can be 
executed by the 2250. 

Operation : Data Generator tests the data 
information word (Table 8) to determine the 
type of output to be produced. Operation 
of Data Generator varies for keyed or 
non-keyed elements according to the type of 
output desired and the type of cycle desig- 
nated by the calling routine. A cycle is 
defined as one execution of Data Generator 
resulting from a request by another rou- 
tine. 

Single or multiple requests for the 
execution of Data Generator may be issued 
by the calling program, as determined by 
the "count" parameter, or if the increment 
is such that it requires more than one 
incremental set of coordinates, the entry 
is treated as a multiple request. Each 
time a cycle of Data Generator is request- 
ed, bits are set by the calling routine to 
indicate whether this is the first, the 
last, or an intermediate cycle. 

During any cycle of Data Generator, if 
the code returned in register 15 from Data 
Store indicates that the attempt to store 
orders was unsuccessful. Data Generator 
immediately returns control to its calling 
program, passing that same code. 

The following paragraphs describe the 
operation for keyed and non- keyed elements. 
If an element has a correlation value, this 
routine considers it to be keyed. 

Non-Keyed Element 

1. Preliminary processing for first cycle 
of the routine: 

The graphic orders to set the mode and 
to position the beam are generated from 
data in the input parameter list, and then 
stored via Data Store before the basic 
cycle operation is begun. 



Basic operation for each cycle of 
routine : 



the 



| 26-31 

L 



Reserved 



For absolute or incrememtal output , 
graphic orders and data for displaying the 
desired image are generated and stored. 
The type of image to be displayed and 
whether the beam is to be blanked or 
unblanked is determined from the data 
information word. The x- and y-coordinates 
are determined from data in the input 
parameter list. 

For optimized output , the length of the 
increment is checked, and the shortest 
output is generated. Determination of the 
optimal mode depends upon the mode pre- 
viously established. If this previously 
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established mode was absolute, the increm- 
ental line or point must be two bytes to 
cause the mode to be changed to incremen- 
tal; if it is more than two bytes, the 
output mode remains absolute. If the pre- 
viously established mode was incremental, 
the incremental line or point must be 
greater than six bytes to cause the mode to 
be changed to absolute; otherwise, output 
mode remains incremental. After the mode 
has been determined for this cycle, lines 
or points are determined from data in the 
input parameter list and graphic orders and 
data are generated and stored in the GDOA. 



A GTRU to transfer around the orders for 
repositioning the beam is set up. Current 
mode settings are turned off in tne 
GDSGRMOD field. Graphic orders for reposi- 
tioning the beam are generated for all 
calls except STPOS/MVPOS. The unresolved 
address mentioned under first cycle pro- 
cessing is resolved to the address of the 
repositioning order, if applicable. 



Data Store Routine (Module Name IFFAHA0 5) 



Charts; KJ, KK 



Keyed Element 

Single request processing: 

Output mode is checked. If it is abso- 
lute , the graphic orders and data to dis- 
play a line or point and any mode setting 
required are generated from information 
contained in the input parameter list. 

If the output mode is incremental , the 
length of the incremental line or point is 
computed and the graphic orders and data 
are generated and stored as described for 
absolute mode. 

If the output mode is optimized , the 
length of the increment is checked and the 
shortest output is generated. If the 
incremental length is greater than two 
bytes, orders are created to generate a 
line or point in absolute mode. If the 
incremental length is two bytes, orders are 
created to generate a line or point in 
incremental mode. 



Multiple request processing; 

1. Preliminary processing 
cycle of the routine: 



Function : For various routines, performs 
the following functions: 



• Stores data in tne GDOA and writes the 
GDOA to the buffer on an overflow. 



• Resolves any unresolved addresses that 
have been flagged by the calling rou- 
tine (see Table 9). 

• Causes buffer to be assigned to this 
GDS if the STATUS field in the OACB 
indicates that none has been assigned 
previously. 

• Causes an entry to be made in the flow 
control structure if buffer is assigned 
to the GDS by this execution cf Data 
Store. 

Entry : IFFAHA05 from BGSEQ/BGSUB, ENSEQ, 
ENSUB, LKSUB, STEOS, PTEXT, Data Generator, 
or ORGEN routines. 



for the first Exit : To the calling program. 



For the first element of multiple 
requests, the structure required to place 
the element in include or omit status is 
built, and stored in the GDOA via Data 
Store. This structure consists of a GTRU 
order (for omit status) or a GNOP4 order 
(for include status) to an unresolved 
address, and bits are set in the input 
parameter list for Data Store to indicate 
that there is an address to be resolved 
during the last cycle of Data Generator. 
See Table 9, Code X^l* and Figure 16 in 
this section. 



Easic operation for each cycle of 
routine : 



the 



This is the same as described for non- 
keyed elements, basic operation. 



3. Post- processing for last cycle of 
routine : 



the 



Input : In register 1, the address of a 
work/ save area, containing information as 
follows: 

+0 Address of the GDSCB. 

+4 Address of the GSPARRAY field in the 
GSPCB where the return code is 
placed. 

+8 Flags which indicate to the routine 
that some action must be taken in 
resolving addresses. The codes used 
to set these flags are explained in 
Table 9. 

+10 Length (in bytes) of the data to be 
stored. 

+12 Graphic orders and data to be stored. 
(Length is nine full words . ) 

+48 Register save area. 
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Table 9. Data Store Input Flag Codes 

r t 

Code | Orders Passed to Data Store 



4-- 



X^Ol 1 ! GTRU/GNOP4 unresolved address (1) 



X , 02 , j No order; (1) will be resolved 
I Address (3) will be resolved at 
j ENSUB time 



X'OS'j GTRU unresolved address (2) 

j Address (1) will be resolved 

j Address (2) is resolved when the 

j repositioning order is stored 



X'OH'j GTRU unresolved address (3) 
j GTRU zero address 
| GDRD 



y .| 

X'OS'I GMVA subroutine address + 6, 
| unresolved address (5) 
| GTRU subroutine address + 8 
| GPDI 
| Address of (5) will be resolved 



j. 4 

X*14*| GTRU unresolved address (3) 
| GTRU zero address 

| GTRU/GNOP4 unresolved address (4) 
I GDRD 
J Address of (4) will be resolved 



X'18*j GTRU/GNOP4 unresolved address (6) 

| GMVA subroutine address + 6, 

j unresolved address (7) 

| GTRU subroutine address + 8 

| GPDI 

| Addresses (6) and (7) will be 

j resolved 



X*20*| No order; perform overflow 
| function for ORGEN 



Note: The numbers within parentheses are 



referenced under "Operation" where the 
resolving of addresses is explained. 



Output : Graphic orders and data are moved 
to the GDOA. If Data Store is unsuccessful 
in any of its functions, a return code of 
four is placed in register 15. 

Operation : Data Store tests the STATUS 
field in the OACB to determine if buffer 
has yet been assigned to the specified GDS. 
If no buffer has been assigned. Buffer 
Management is called to assign buffer. 
Then, Flow Control Management is called to 
create a flow control structure entry for 
the specified GDS. These two functions are 
bypassed if the specified GDS has had 
buffer assigned to it before this execution 
of Data Store. Should Data Store be unsuc- 
cessful during any of its functions, con- 
trol is returned immediately to the calling 
program with the appropriate code in reg- 
ister 15. 



Data Store resolves any unresolved 
addresses as explained later, and moves the 
graphic orders and data to the GDOA. 

If the GDOA is full or if the remaining 
space is not large enough for all the 
graphic orders and data to be moved (the 
last four bytes of the GDOA are reserved), 
the GDOA is filled with as much of the data 
as it can contain and a GTRU order to the 
buffer section for the next GDOA is placed 
in its last four bytes. Buffer is obtained 
for the next GDOA by calling Buffer Manage- 
ment. The buffer address that is returned 
is placed in the GTRU order. Any unre- 
solved addresses in the OACB fields (+32 
through +47) are then noted as being in the 
buffer. A test is made to determine if 
four bytes of data from the CRSA point in 
the GDOA must be saved in the GDSCB. The 
graphic orders and data are written to the 
buffer from the CRSA point on; if four 
bytes of data were saved, it is written 
from CRSA + 4. This is known as the 
overflow function. 

Finally, the next OACB is accessed and 
initialized for the next GDOA, and the 
appropriate set mode order is determined 
and placed in the first two bytes of the 
next GDOA. Any remaining graphic orders 
and data are moved to the next GDOA, and 
control is returned to the calling program. 

Figure 19 depicts the GDOAs with logical 
and physical buffer addresses. 

Unresolved addresses may be resolved 
either in the GDOA or in the buffer. If 
the address to be resolved is for an order 
in the buffer, field BUF1 or BUF2 in the 
OACB will contain the buffer location of 
the order containing the unresolved 
address. If the address to be resolved is 
for an order in the GDOA, field CPU1 or 
CPU2 of the OACB will contain the GDOA 
location of the order containing the unre- 
solved address. These fields in the OACB 
are set up at the time the order is placed 
either in the GDOA or in the buffer with an 
unresolved address. 

Resolving of addresses is accomplished, 
based on codes in the flag field of the 
input work area shown in Table 9. Numbers 
within parentheses refer to Table 9. 

X'01' — Indicates entry from BGSEQ, PTEXT, 
ORGEN, or Data Generator (first call for 
multiple requests) where a key is used. No 
addresses are resolved. See Figures 17 and 
19 for the structure of multiple requests. 

X'02' — Indicates entry from ENSEQ, ENSUB, 
PTEXT, ORGEN, or Data Generator (last call 
for multiple requests) where a key is used. 
Address (1) shown in Table 9 is resolved to 
the current location. Address (3) is 
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resolved at ENSUB time to the current 
location. Address (2) is resolved to the 
current location when a repositioning order 
is stored. 



Entry : IFFAHA13 or IFFAHA14 from 
STPOS/MVPOS, PSGMT, PLINE/PPNT, PTEXT, 
PLSTR, or ORGEN subroutines. 



X'03' — Indicates entry from Data Genera- 
tor for a keyed element, where a GTRU has 
been set up preceding the positioning ele- 
ment (multiple request). Address (1) shown 
in Teble 9 is resolved to the current 
location. 

X'04' — Indicates entry from BGSUB for a 
level 2 buffer subroutine. Address (3) is 
resolved at ENSUB time with a code of 
X'02*. This GTRU transfers control around 
the subroutine so that it is not executed 
in line. 



Exit : To the calling program. 

Input : In register 1, the address of a 
work/save area. The first word of this 
area contains the address of the following 
input parameter list: 

+0 Address of the key in the key 
table. 

+4 Three full words reserved. 

+16 Address of the GDSCB. 



X'08' — Indicates entry from LKSUB for 
non-keyed linkage to a buffer subroutine. 
See Figure 17 for the structure of buffer 
subroutine linkage. Address (5) is 
resolved to the current location + 10, 
which is the return address from the buffer 
subroutine. 

X'14' — Indicates entry from BGSUB for a 
keyed buffer subroutine. Address (4) shown 
in Table 9 is resolved to the current 
location minus four, which points to the 
return transfer. See Figure 17. 

X'18' — Indicates entry from LKSUB for 
keyed linkage to a buffer subroutine. 
Addresses (6) and (7) shown in Table 9 are 
resolved to the current location + 14, 
which is the return address from the buffer 
subroutine. 

X* 20' — No addresses are resolved, but it 
indicates entry from ORGEN, and only part 
of the overflow function is performed. 



Update Routine (Module Names IFFAHA13 and 
IFFAHA14) 



Chart : None 

Function : Obtains storage for a temporary 
GDOA and OACB for storing graphic orders 
and data created for an update, or writes 
these orders and data from the temporary 
GDOA to the 2250 buffer. 



+20 Address of the GSPARRAY field in 
the GSPCB. 

+24 Eleven full words reserved. 

Output : For entry IFFAHA13, a temporary 
GDOA and its OACB are constructed and the 
address of the temporary OACB replaces the 
address of the regular OACB in the GDSCB. 
For entry IFFAHA14, the contents of the 
temporary GDOA are written to the buffer, 
the storage occupied by the temporary GDOA 
and the OACB is freed, and the GDSAOACB 
field in the GDSCB is restored to its 
previous condition. 



Operation : At IFFAHA13, storage needed for 
temporary GDOAs and OACBs is obtained. 
Fields in the OACB are set to point to this 
temporary GDOA. The original OACB address 
in the GDSCB is saved when the replacement 
OACB address is inserted. Control is 
returned to the calling program. 

At IFFAHA14, if the length of the update 
orders and data is less than the length of 
the element (s) being replaced, a GNOP2 
order (if only two bytes are left) or a 
GTRU order (if four bytes or more are left) 
to the next element is placed in the 
temporary GDOA. Contents of the temporary 
GDOA are then written to the buffer, and 
the storage used for the temporary GDOAs 
and OACBs is freed. The GDSAOACB field in 
the GDSCB is restored, and control is 
returned to the calling program. 
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Multiple Request 
Keyed Element in 
Include Status (PLINE) 



B. Multiple Request 
Keyed Element in 
Omit Status (PPNT) 



GNOP4 

GEVM 



ADDR 



GTRU 
GEPM 



ADDR 



element (unblanked) 



element (unblanked) 



,. ., 



GTRU 



LOC 



ADDR I 



LOC 



J. ., 

GEVM positioning 

element (blanked) 




,. ., 



GTRU 



LOC 



J. ) 

ADDR I GEPM positioning I 
element (blanked) 



LOC j 




C. Multiple Request 

Ncn-keyed Element in 
Include Status (PLINE) 




Single Request 
Keyed Element in 
Include Status (PLINE) 

r 1 

| GEVM j 

j unblanked element j 

L j 

Single Request 
Keyed Element in 
Omit Status (PLINE) 

r 1 

j GEVM j 

I blanked element j 
L j 



Figure 16. Include/Omit Structure by Type of Element 
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A. Structure of Level 1 Keyed 
Buffer Subroutine 



From EGSDB: SUBR 
A 



From ENSUB: 



GTRU B 
GTRU RET 
GTRU A 

or 
GNOP4 A 
GDRD 




Next element beyond 
buffer subroutine. 



This address is resolved by a call to ENSUB. 
This address is resolved by a call to LKSUB. 
(Omit status) 

(Include status) 



Note; The include/omit structure is omitted 
for a non-keyed or level 2 buffer 
subroutine . 



B. Linkage for 
Level 1 Keyed 
Buffer Subroutine 

r 1 

| GTRU RET 

I or 

| GNOP4 RET 

JGMVA SUBR+6,RET 

| GTRU SUBR+8 

^ ^ 

RET JGPDI | 



C. Linkage for 

Level 1 Non-keyed or 

Level 2 

Buffer Subroutine 

(Omit) r i 

JGMVA SUBR+6 f RET | No include/ omit 
(Include) jGTRU SUBR+8 | structure is set up. 

|. 1 

RET JGPDI | 

L J 



Figure 17. Buffer Subroutine Structure and Linkage 
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Keyed Sequence in 
Include Status 



Keyed Sequence in 
Omit Status 



From EGSEQ: j GNOP4 ADDR3* 



1st Keyed 
Element 



h 



ADDR1 



LOCI 
2nd Keyed 
Element 



ADDR2 



LOC2 
Non- keyed 
Element 



ADDR3 



GNOP4 ADDR1 
GEVM 



element (unblanked) 



GTRU LOCI 



GEVM positioninq 
element (blanked) 



GTRU ADDR2 
GEPM 



element (unblanked) 



GTRU 



LOC2 



GEPM positioninq 
element (blanked) 



GEVM 



element (unblanked) 



Beqinninq of next 
element or sequence 



From BGSEQ: j GTRU ADDR6* 



1st Keyed 
Element 



I" 



ADDRU 



LOC3 
2nd Keyed 
Element 



ADDR5 



LOCU 
Non-keyed 
Element 



ADDR6 



GNOP4 ADDR4 
GEVM 



element (unblanked) 



GTRU LOC3 



GEVM positioninq 
element (blanked) 



GTRU ADDR5 
GEPM 



element (unblanked) 



GTRU 



L0C4 



GEPM positioninq 
element (blanked) 



GEVM 



element (unblanked) 



Beqinninq of next 
element or sequence 



♦These addresses are resolved by a call to ENSEQ. 



Fiqure 18. Examples of Structure of Keyed Sequences 
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-Logical Buffer Address 
(Physical Buffer Address 258) 



First Section 

Physical Buffer 
Address 256 



<-2 Bytes- > I 

r 1 1_ 

| 0000 | 



|GTRU 1024 

L 



GDOA1 

Length 256 Bytes 



Transfer to next buffer section 
for GDOA2. 



4 Bytes- 



- Logical Buffer Address 250 
(Physical Buffer Address 1026) 



Second Section 

Physical Buffer 
Address 1024 



<-2 Bytes~>l 

r 1 1_ 

| Set mode | 

I- J 



j GTRU next section j 

l . J 

< 4 Bytes > 



GDOA2 

Length 256 Bytes 



Transfer to next buffer section 
if another GDOA exists. If not, 
this transfers to appropriate 
flow control structure address. 



Figure 19. GDOAs with Logical and Physical Buffer 
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CHARTS 



This section contains autocharts for many of the GSP routines described in the 
preceding section. Charts are not included for all GSP routines, but only for the 
routines where it is believed the charts are an aid toward better understanding. The 
charts should be used in conjunction with the detailed descriptions of corresponding 
routines in the preceding section. The charts are ordered alphabetically (according to 
identification number) in the sequence in which the routines are described. Refer to 
Appendix D for an explanation of the symbols used on the autocharts. 
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Chart AA. INDEV Subroutine 



****A1 ********* 

* • 
♦IFFAAA03 ENTRY * 

* * 
*************** 



IIN00110 X 

•LOAD * 

*-*-*-*-*-*-*-*-* 

* PANIC * 
» (CANCEL) KEY * 

* ROUTINE * 
***************** 



*****B1 ********** 

* * 

* * 

* INITIALIZATION * 

* * 

* * 
***************** 



*****B4********** 
♦COMPLETE GTMCB * 

* FIELDS, ADD * 

* GTMCD TO CHAIN * 

* STORE GTMCB * 

* ADDS FOR USER * 
***************** 



.* ARE *. 
.* REQUIRED 
. PARAMETERS 
*. VALID . 



****C2********* 

* * 
.X* ERROR RETURN * 

* * 
*************** 



*****C5* ********* 

* . * 

* ASSUME * 
. X* 256-BYTt GDOA * 

* LE NG TH * 

* * 
***************** 



****-*Dl ********** 

* GETMAIN * 
*-*—*—*-*-*—*-*-* 
♦OBTAIN STORAGE * 

* FOR CONTROL * 

* BLOCKS * 
***************** 



*****D4 ********** 

* * 

* PLACE IN * 
*GTMGDOAL FIELD * 

* OF GTMCB * 

* * 
***************** 



* + ***E I ********** 
♦OPEN * 
*-*-*-*-*-*-*-*-* 

* FORM OONAME * 

* OPEN DCB FOR * 

* GSP SYSTEM * 
***************** 



TIN05400 X 

*****E4*** ******* 
*GREADR * 

*-*-*-*-*-*-*-*-* 

* UNLOCK * 

* ALPHAMER IC * 

* KEYBOARD * 
***************** 



***** F | ********** 

* PL.ACE * 

* PHYSICAL UNIT * 

* ADDRESS AND * 

* FEATURES FROM * 

* UCB IN GTMCB * 
***************** 



*****F2********** 

* CLOSE * 
*-*-*-*-*-*-*-*-* 

* * 

* CLOSE THE DCB * 

* * 
**•**•*******•*•* 



TIN00120 X 

*****F4********** 
♦LOAD * 

♦-♦-♦-♦-♦-*-*-*-* 



***************** 



.* IS THIS *. YES 
.2250 ALREADY .*.... 
*. OPEN .* 



*-*-*-*-*-*-*-*-* 
X* FREE * 

* STORAGE * 

* OBTAINED * 

***************** 



TIN0005S . 
X 
****G4*** ****** 

* * 

* RETURN * 

* * 
*************** 



TIN00050 X 

*****H1 ********** 
*INGDS AB* 

*-'*-*-*-*-*-*-*-* 
+ SET UP * 

* SYSTEM GDSCB * 

* FOR GSP * 
***************** 



*-*-*-*-*—*-*-*-* 

* INITIALIZE * 

* FCT AND FLOW * 
•CTRL STRUCTURE * 

**••*•******••**• 



TINO0030 X 

*****K 1********** 
•SAEC AND SPAR * 
•-*-*-*-*-*-*-*-* 

* CREATE * 

* AND ACTIVATE • 

* GACBS * 
***************** 
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Chart AB. INGDS Subroutine 



****Al********* 

* * 
♦IFFAAA06 ENTRY * 

♦ ♦ 
*************** 



*****A4**** ****** 

* STORE GDSCB * 
*ADDR IN USER'S * 

* VARIABLE, GET * 
♦STORAGE ADDR OF* 

* NEXT GDSCB * 
***************** 



*****B1 ********** 

* * 

* * 
♦INITIALIZATION * 

* * 

* * 
***************** 



OPN00170 X 

*****B4********** 

* COPY GDSCB * 

* INFORMATION. * 
*SET OP GOSSHOFD* 

* AND GDSSHDBK * 

* FIELDS * 
***************** 



.* ARE *. 
* ALL 

PARAMETERS 
*. VALID 



****C2*** ****** 
.NO * * 

.* ...X* ERROR RETURN 1 

X * * 

. *************** 

**** 

* * 

* C2 * 

* * 

**** 



*****D1********** 

* * 

* OBTAIN GDOA * 

* LENGTH FROM * 

* PARAMETER OR * 

* GTMCB * 
***************** 



OPNOOIOO X 

*****£ i ********** 
♦GETMAIN * 

*-*-*-*-*-*-*-*-* 
♦OBTAIN STORAGE * 
* FOR GDSCB. 2 ♦ 
♦OACBS. 2 GDOAS * 
***************** 



.* IS THERE *. YES 
.AN EQUIVALENT.*.... 
*. GDS .* 



OPN001 10 

*****F2* ********* 
♦GETMAIN * 

*-*-*-*-*-*-*-*-* 
. ..X* OBTAIN * 

X * STORAGE FOR * 

*EOUI VALENT GDS * 
***************** 



* Gl *.X. 

* * . 
**** . 

0PN001I5 X 

*****G1 ********** 

* * 

* SET UP GDSCB ♦ 

* FOR FIRST OR * 

* ONLY GDS * 

* ♦ 
***•*♦♦*******♦•* 



THERE 
ADEQUATE 
. STORAGE 



*-♦-*-*- 



-*-*-*_* 



<* FREE * 

* STORAGE * 

♦ OBTAINED SO FAR« 
♦♦♦♦♦♦♦*********♦ 



* HI *.X. 

* * 
**** 

OPN00120 X 

»****H1 ********** 

* * 

* SET UP * 
♦OACBS AND GDOAS* 

* FOR GDS ♦ 

* ♦ 
*♦♦♦♦♦♦♦♦♦******* 



* ADD GDSCB TO ♦ 
♦CHAIN ATTACHED ♦ 

♦ TO GTMCB * 

.* * 

***************** 



**** 

* ♦ 

* Gl * 

* ♦ 
♦ ♦** 



.* IS THERE *. 

*.AN EQUIVALENT. 

♦. GDS .♦ 



♦ STORE GDSCB ♦ 
K* ADDRESS IN *. 

♦ USER'S VARIABLE* 

♦ * 
****♦♦♦♦♦♦♦♦♦♦♦♦♦ 



OPN00230 

♦♦♦♦K3* ******** 

* 4 
. ..X* RETURN 4 

* * 
•*♦♦♦♦******♦♦♦ 
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Chart AC. TMGDS Subroutine 



****A1********* 

* * 
♦IFFAAA06 ENTRY * 

* * 
*************** 



THERE 

ANOTHER 

SHARED 

*. GDS .« 



DSC00090 

****A5********* 

* * 
. ..X* nETORN ♦ 

* * 
*************** 



•****B1********** 

* * 

* * 
♦INITIALIZATION * 

* * 

* * 
***************** 



*****B4********** 

* * 

* OBTAIN * 

* SHARED CDSC8 * 

* ADDRESS * 

* * 
***************** 



*.THE gds open 



****C2 ********* 

* « 
•X* ERROR RETURN * 

* * 
*************** 



.*IS THERE A *. NO 
♦.KEY TABLE FOR.*... 
•.THIS GDS .* 



.X* HI * 



.♦DDES A KEY *. H 
*. TABLE EXIST .*. 
♦.FOR THIS .* 
*. GDS .* 



*-*-*-*-*-*-*—*—* 

* • 

* DELETE KEY * 

* TABLE * 
***************** 



*-*-*-*-*-*-*-*-* 

* * 

* DELETE KEY * 

* TABLE * 
***************** 



OSC00005 X 

*****F1 ********** 
*FLO CTRL MGT KA* 
*-*—*-*—*-*-*-*-* 

* DELETE THIS * 

* GDS FROM FLOW * 
•CTRL STRUCTURE * 
***************** 



*****G1********** 
♦BUFFER MGT KC* 
*-+—*-*—*-*-*-*-* 

* RELEASE * 
♦BUFFER USED FOR* 

• GDS * 
***************** 

***• 

* * . 

* HI *.X. 

• ♦ . 
♦ ♦♦• . 

DSCOOOtS X 

*****H1 ********** 

• * 

♦ REMOVE GDSCB ♦ 

♦ FROM CHAIN OF ♦ 

♦ GDSCBS ♦ 

♦ ♦ 
***************** 



.* IS IT *. YES 
*.AN EQUIVALENT.*.... 

♦ . GDS .* 



••••• J2* ********* 

* SAVE * 

* SHARED POINTERS* 
.X* FOR REMOVING * 

* OTHERS FROM * 

* CHAIN * 
***************** 



DSC00050 X 

***»»K1 ********** 
•FREEMAIN * 
*—*—*-*-*-*-*-♦—♦ 
* FREE STORAGE * 
•USED FOR GDSCB.* 
•OACBS AND GDOAS* 
•*•♦*♦♦♦♦♦•****** 
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Chart AD. TMDEV Subroutine 



***** i ********* 
* * 

♦IFFAAA04 ENTRY * 

* * 

*************** 



***** A3 ********** 
♦FREEMAIN * 

*-*-*-*-*-*-*-*-* 

* FREE * 

* STORAGE USED * 

* FOR GTMCB * 
***************** 



•****B1********** 

* * 

* * 

* INITIALIZATION * 

* * 

* * 
***************** 



****B3* ******** 
¥ * 

* RETURN * 

¥ * 

*************** 



*—*—*—*-*—*—*-*—* 

* * 

* TERMINATE FCT * 

* AND OECB * 
**•****••*•*••*** 



****CZ*** ****** 

* * 
.X* ERROR RETURN * 

* * 
*************** 



*****E1 ********** 
♦BUFFER HGT KC* 

*_*—*—*—*—*—*-*—* 

* RELEASE * 

* ALL BUFFER * 

* CLEAR BCT * 
***************** 

*•** . 

* * 

* Fl *.X. 



*-*-*—*-*—*-*-*-* 
K* * 

* TERMINATE USE * 

* OF THE GDS * 
***************** 



.* IS *. YES 

*. THERE AN OPEN.*.... 
*. GDS .* 



•****F2********** 

* * 

* UPDATE * 

* TO NEXT GDSCB * 

* IN CHAIN * 

* * 
****•**•****•**•* 

. **** 

. * * 

..X* Fl * 
* * 

• **• 



.* ANY *. 

OPEN 

ATTENTION 

. LEVELS . 



*-*-*-*-*-*-*-*-* 
X* END *X... 

♦ ATTENTION LEVEL* 

* * 
***************** 



TCL00040 X 

♦♦•**H1 ********** 

* CLEAR * 

* GTMCB FIELDS * 

* THAT IOENTIFY *X. 

* IT AS A GTMCB * 

* * 
***************** 



.* ANY *. 
NO .* MORE *. YES. 
...*. ATTENTION .*. 
*. LEVELS .* 



*****J |********** 
•DAR * 

*-*-*-*—*-*-*-*-* 

* * 

* DELETE GACBS • 

* • 
•**•*♦**•*•***•** 



TCL00060 X 

*****K 1 ********** 
•CLOSE * 

*-*—*-*—*-*-*-*-* 

* CLOSE * 

* DCB FOR THIS • 

* 2250 * 
••••••**••••**•** 



**•• 

* • 

* A3 * 

* * 
***• 
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Chart BA. Image Generation Subroutines 



****A2********* 

► i 

► ENTRY * 

► * 
*************** 



*****B2********** 

* * 

* * 

* INITIALIZATION * 

* * 

* * 
***************** 



FOR STPOS/MOVPOS 
PLINE/PPNT 
PSGMT 
PTEXT 



» ARF 

PARAMETERS 
». VALID 



****C4** ******* 

* * 
.X* ERROR RETURN * 

* 4 
*************** 



*****D2*** ******* 

* INITIALIZE * 

* SWI TCHES AND * 
*SET UP SKELETON* 
♦PARAMETER LIST * 

* FOR DATA GEN * 
***************** 



IS THIS 
A BUFFER 
. SUBRTN 



*****E3********** 

* * 
♦SET INPUT DATA * 

<♦ MODE * 

* INCREMENTAL * 

* * 
***************** 



IS THIS 

AN UPDATE 

CALL 



*-*-*—*-*-*—*—*—* 

* *. 

* VERIFY VALIDITY* 

* OF KEY ♦ 
***************** 



+****F3**» ******* 
♦SAVE GDSXLAST. * 

* GDSYLAST. * 
. X* GDSXCURR AND * 

♦GDSYCURR FIELDS* 

* * 
***************** 



CHART BB FOR STPOS/MVPOS 

CHART BC FOR PLINE/PPNT OR PSGMT 

CHART HO FOR PTEXT 



FOR ERRORS ENCOUNTERED DURING PROCESSING. THIS IS ENTERED. 

****H3********* 

* * 

* ERROR ENTRY ♦ 
» * 

*************** 



.*. 

J3 *. *****J4********** 

•* *. *RESET DB* 

•* IS *. NO ♦-♦-*-*-*-*_*_*_* 

*• THIS AN .*........X* * 

*. UPDATE .* * RESET GOS TO * 

*• •* * KEY * 

*. -* ***************** 
+ YES 

• X.. ................. .....". 

X 
*****K3***+****** 

* RESTORE * ****K4********* 
♦LOGICAL BUFFER ♦ ♦ * 

* START IN KEY. * X* RETURN * 

* STORE KEY IN * * * 

* USER VARIABLE * *************** 
***************** 
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Chart BB. STPOS/MVPOS Subroutines 



***** 

*BB * 
* Al* 



**** 

* * 

* A4 * 

* * 
**** 



POS00100 .*. 



.♦IS THIS*. 
» A BUFFER 
SUBROUTINE 



*****A2*** ******* 

* * 

* SET OUTPUT * 
X* MODE TO *. 

* INCREMENTAL * 

* * 
***************** 



*****A4********** 
♦DATA GEN KH* 
♦-*-*-*-*-*-*-*-* 

* SET * 

* UP ORDERS AND * 

* DATA * 
***************** 



*****B2* ********* 

* * 

* SET OUTPUT * 
<* MODE To *■ 

* ABSOLUTE * 

* * 
***************** 



IS THIS 
AN UPDATE 
. CALL 



P0S002^0 

***t*u'j>* ********* 

♦ UPDATE * 
*-*-+-*-*-*-*-*-* 

. . . X* WR I TE * 

♦TEMPORARY GDOA ♦ 

* TU HUFFER * 
***************** 



*+***C I ********** 

* SET OUTPUT * 

* MODE TYPE * 

* (ABSOLUTE OR * 

* INCREMENTAL ) * 

* PER GDSGRMOD * 
***************** 



*****o********** 

* * 

* COMPUTE * 
♦LOGICAL LENGTH * 

* OF ELEMENT * 

* * 
***************** 



*****Cb*********^ 

* * 

* UPDATE * 
*KEY IN THE KEY * 

* TABLE * 

* * 
***************** 



P0S00120 X 

•****D1********** 
♦SCALING KF* 

*-♦—*—*-*—*—*—*—* 

* * 

* SCALE INPUT * 

* DATA * 
**•**♦♦♦*♦**♦**** 



*****D4********** 

* * 
♦PREPARE KEY AND+ 

* KEY TABLE MGT + 

* PARAMETERS * 

* * 
***************** 



.*IS THIS*. 
YES .♦ A BUFFER * 
...*. SUBROUTINE 



POS00300 X 

*****E4*** ******* 
♦KEY TBL MGT KE* 
*-*-*-*-*-*-*-*-* 

* ADD * 

* KEY TO KEY * 

* TABLE * 
***************** 



POS00240 

*****F2********** 

♦ SET UP GDSXCURR* 

♦ GDSYCURR ♦ 
...X^ GDSXLAST AND ♦ 

♦GDSYLAST FIELDS^ 

♦ IN GDSCB ♦ 
♦*♦♦♦*♦*******♦♦* 



****(- 4********* 

» * 

t RETURN 1 

♦♦♦♦♦♦********* 



*****G1 ********** 
♦SCISSORING KG* 
*-*-*-*-*-*- *- ♦- * 

* * 

* SCISSOR INPUT ♦ 

* OATA * 
♦♦♦♦♦************ 



*****H I ********** 

* * 

* ADD SCISSORED * 

* DATA TO ♦ 

* PREVIOUS DATA * 

* * 
**********♦♦♦♦*** 



POS00160 



IS THIS *. YES 
AN UPDATE .*.... 
CALL .+ 



**** 

* * 

* A4 * 

* ♦ 
♦ ♦♦♦ 



♦-♦-♦-♦-♦- 



***************** 
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Chart EC. PLINE/PPNT and PSGMT Subroutines 



***** 

*BC * 
* Al* 



-LABEL ON LEFT SIDE OF BLOCK 
REFERS TO PLINE/PPNT. 
LABEL ON RIGHT SIDE OF BLOCK 
REFERS TO PSGMT. 



PLT02000 X AFAOAT10 
*****A1»********* 

* * 

* COMPLETE DATA * 
♦GENERATOR INPUT* 
♦PARAMETER LIST * 

* ♦ 
***************** 



**♦♦ 

* * 

* E3 *X. 

* * 
♦ »** 



.* WHICH *. 
.* CODE DID 
. SCISSORING 
*. PASS 



****A4 ********* 

* I 
.X* ERROR RLTORN < 

* 4 
*************** 



* B3 * . X . 



IS THIS 

AN UPDATE 

CALL 



-T03200 AFAOAT75 

*****B2 ********** 

• UPDATE * 
*-*-*-*-*-*-*-*-* 

.X* GET * 

♦TEMPORARY GDOA * 

* ♦ 
***************** 



♦♦♦**C1********** 

* GET OACB * 

* AODR AND * 
♦LOGICAL BUFFER * 

* START FOR * 

* ELEMENT * 
***************** 



PLT02450 X AFASSD25 
•****C3 ********** 
*DATA GEN KH* 



♦GENERATE ORDERS* 
* AND OATA * 
***************** 



.* MORE THAN 
. ONE POINT. 
*. LINE OR . 
*. SEG .* 



*****E1********** 

* SET UP LOOP * 

* CONTROL FOR * 

* NUMBER OF * 

* ORDERS TO BE * 

* GENERATEO * 
***•*♦♦♦••*♦***** 



* FJ *.X. 

* * . 
**** . 

PLT02A00 X AFASSDIO 
*****F1********** 

* SCALING KF* 
*-*-*-*-*-*-*-*-♦ 

* SCALE * 

* COORDINATES * 

* * 
***************** 



**** 

* * . 

* E3 *.X. 

* * . 
**** X 

• *. 

E3 *. 

.* ARE *. 

•*THERE MORE *. YES 

*. COORDINATES .*.... 

*. TO DO .* 



. ♦♦**^E4********** 

* • 

* SET THE * 

. ...X*BEAM ON OR OFF *. 
. * AS NEEOED ♦ 

* * 
***************** 

.FOR 

.PSGMT ONLY 



• *• PLT03300 AFASSD80 

F3 *. ♦♦♦•♦FA********** 

•* *. *UPOATE * 

IS THIS ♦. YES *_*-♦_*_*_*_*_*_* 

AN UPDATE .*........X* WRITE * 

. CALL .♦ ♦ OUT TEMPORARY * 

*• .* * GDOA * 

*■ .* ***************** 

* NO . 



*****£ S**** ****** 

* SET * 

* UP PARAMETER * 
. X* LIST FOR NEXT * 

* COORDINATES * 

* * 
***************** 



*****G3 ********** 

♦ * 
♦PREPARE KEY AND* 

♦ KEY TBL MGT ♦ 
♦PARAMETER LIST ♦ 

♦ ♦ 
***************** 



*****G4*« ******** 

* * 

* UPDATE * 

* KEY IN KEY * 

* TABLE * 

* * 
***************** 



.* THIS PART *. YES 

*• OF A BUFFER .*.... 

*. SUBRTN .* . 



*-*-*-*-*-*-*-*-♦ 

* PUT * 

* KEY IN KEY * 

* TABLE * 
♦♦♦♦****•*****•♦• 



PLT03000 

***** J2*** ******* 

* SET * 

* GDSCB FIELDS * 
...X*FOR CURRENT AND* 

* LAST * 

* COORDINATES * 
****••**•****•*** 



PLT02700 X AFARETIS 

♦♦♦♦♦J3* ********* 

♦ RESTORE ♦ 
♦INPUT OATA MODE* 

* TO CONDITION * 

♦ BEFORE THIS * 

* CALL ♦ 
*••******♦•**♦•** 



X AFASSD1S 

*****K1 ********** 
♦SCISSORING KG* 

*-.*-*-*-*-*-*-*-* 

* SCISSOR * 
♦COORDINATE DATA* 

* * 
***************** 



****K3* ******** 

* * 

* RETURN * 
» * 

*************** 
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Chart ED. PTEXT Subroutine 



***** 

*BD * 
* Al* 



AFADAT10 



IS THIS 

AN UPOATE 

CALL 



AFAOAT70 

*****A2* ********* 

♦ UPDATE * 
*-*-*-*-*-*—*-*-* 

. ..X* GET * 

♦TEMPORARY GDOA * 

* AND OACB * 
***************** 



*****A4 ********** 

* SAVE * 

* NUMBER OF * 
♦RASTER UNITS TO* 

* BE SCISSORED * 

* • 
***************** 



*****B 1 ********** 

* * 

* PUT LOGICAL * 

* START ADDRESS * 
♦IN ELEMENT KEY ♦ 

* * 
***************** 



.♦IS THE *. 

.♦BEAM TU BE *. 

♦•REPOSITIONED . 



♦GENERATE URDERS+ 
♦ AND DATA ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



.♦IS IT KEYED^. YES 
♦ .OF) CORRELATED.*.... 
♦ . ELEMENT .♦ 



♦-♦-♦-♦-♦-♦-♦-♦—* 
X+ SET UP ♦ 

♦ INCLUDE /OMIT * 

* STRUCTURE * 
***♦♦♦♦********♦* 



AFASCS40 



.* WILL ♦. 
.♦ ALL ♦. 

• CHARACTERS BE. 
♦. DISPLAYED. ♦ 



AFAPOS10 



.♦ BEAM ♦ 

. POSITIONING 
♦.REQUIRED .♦ 



♦-♦-*-♦- 



-*-*-*-* 



K* SET UP * 

* NEM BEAM * 

* POSITION * 
*****♦♦♦♦♦♦♦♦♦♦♦♦ 



•****D4** ******** 

* DETERMINE NO. * 
*OF CHARS TO BE * 
♦SCISSORED FROM ♦ 
♦LEFT AND RIGHT. ♦ 

♦ REVISE COUNT ♦ 
♦♦♦♦♦♦♦♦♦******** 



AFA6C330 



•*IS THIS*. *♦♦♦ 

* A BUFFER ♦. YES ♦ ♦ 
SUBROUTINE .*....x* G2 ♦ 



.♦IS THE ♦. 
.♦SCISSORING ♦. NO 
OPTION .*... 
♦.SPECIFIED.* 



♦♦***G 1 **♦♦♦♦♦♦*♦ 

♦ OETERMINE ♦ 
♦RASTER UNITS TO* 

♦ BE SCISSORED ♦ 
♦FROM LEFT SIDE ♦ 

♦ OF STRING ♦ 
******♦♦♦♦♦♦****♦ 



* COMPUTE NEW * 
...X*BEAM POSITION. * 

* STORE IN GDSCB * 

* * 
***************** 

**** . 

* ♦ . 

* G2 *.X. 

* * . 
***♦ 

AFASET20 X 

*****G2*«* ******* 

* * 
♦OBTAIN ADDRESS ♦ 
♦OF USER'S TEXT ♦. 

* ARRAY ♦ 

* ♦ 
♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦* 



**♦* 

♦ ♦ 
. X* E4 ♦ 

♦ 4 
♦ ♦♦♦ 



*****E4********** 

* * 

* SET UP * 
..X*PARAMETERS FOR * 

* DATA STORE * 
• ♦ ♦ 
. ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦* 

♦ ♦♦♦ . 

♦ ♦ . 

♦ E4 ♦ 

♦ ♦ . 

♦ ♦♦♦ 

AFAGEN30 X 

*****F4 ***♦♦♦♦♦♦♦ 

* DATA STORE KJ^ 
♦-♦-♦-♦-*-*-*-*-* 

* *X 

* STORE TfcXT IN * 

* GDOA * 
♦♦♦♦♦♦♦♦♦♦♦**♦♦*♦ 



.♦ ARE *. 

.♦THERE MORE ♦. YES 
♦.CHARACTERS TO •♦.... 
♦ . STORE .♦ 



*****GS* ********* 

* • 

* REINITIALIZE * 
X* FOR ANOTHER * 

* CALL TO DATA * 

* STORE * 
***************** 



♦♦•**H1 ********** 

* DETERMINE * 

* LENGTH OF * 

* CHARACTER • 

* STRING IN * 

* RASTER UNITS * 
A**************** 



AFATST30 

*****H3* ********* 
♦UPDATE * 

*-*-»-♦-♦-♦-♦-♦-* . 

♦ WRITE ♦X. 

♦ OUT TEMPORARY ♦ 

♦ GDOA ♦ 
•♦♦♦*♦♦****♦♦♦♦♦♦ 



AFATSTIO 



YES .♦ IS 
...... THIS AN 

♦ . UPDATE 



AFASCS35 X 

♦♦♦♦♦J I********** 
♦SCISSORING KG* 
*-♦-*—*_*_*_*_*_* 

* SCISSOR * 

* THE CHARACTER ♦ 

* STRING * 
***************** 



*****J3* ♦***♦♦♦** 

* * 

* UPDATE * 

* KEY IN KEY * 

* TABLE * 

* * 
*•****♦♦♦*♦***•** 



.♦IS THERE A ♦. 

KEY OR 

♦ ••CORRVAL'.* 



***** J5**** ****** 

* * 

* PREPARE KEY * 
. X* AND PLACE IN * 

* USER'S VARIABLES 

* ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



•♦ TEST *. 
.•CODE PASSED*. 4 OR e 

*.BY SCISSORING.* 

*.IN REG IS.* 



AFARESOS 

♦♦**K 2*** ****** 

* * 
X* ERROR RETURN * 

* • 
*************** 



AFAR ET 10 . 

X 
****K4********* 

* * 

* RETURN * 

* * 
*************** 



*-*-*—*-*—*-*-*—* 
.* ADD * 

* KEY TO KEY * 

* TABLE * 
***************** 
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Chart BE. STEOS Subroutine 



**** 
* * 

* A4 * 

* * 
**** 



****A2*** ****** 

* * 
♦IFFAFA1S ENTRY * 

* * 
*************** 



♦****B2*** ******* 

* * 

* * 
•INITIALIZATION * 

* * 

* * 
***************** 



* ARE *. YES .*CORRELATION*. 

PARAMETERS .*........ X*. VALUE PASSED . 

». VALID .* ♦ . .* 



* STORE * 
♦LOGICAL LENGTH * 

* IN KEY * 

* * 
***************** 



ST30 X 

*****B4 ********** 
♦KEY TBL MGT KE* 
*-*-*-*-*-*-+—*-* 

* ADD * 

* KEY TO KEY * 

* TABLE * 
***************** 



OUTRTN 

X 
****C4* ******** 

* * 

* RETURN * 

* * 
*************** 



****D2* ******** 

* * 

* ERROR RETURN * 

* 4 
*************** 



*****D3** ******** 

* SET UP KEY * 
♦STRUCTURE. HOVE* 
♦IN CORRELATION * 

♦ VALUE. SET KEY/* 
*CORRVAL SWITCH * 
***************** 





.* THE *. 


* 


. KEY/CORRVAL . 




♦ .SWITCH ON.* 




*. .* 




*. .* 




* YES 




**** 




. * 




..X* F3 




* 




**** 



.♦.IS IT LEVEL 2.*X. 



♦ F3 ♦X. 

* * X 
**** 



*****F2*** ******* 

♦ PLACE * 

♦ LOGICAL BUFFER ♦ 
.♦ START IN KEY. ♦ 

♦ STORE KEY IN * 

♦ USER'S VARIABLE* 
*••*********♦♦*** 



*****G 1 ********** 

* SET UP * 

* KEY STRUCTURE * 
,.X* WITH ZERO *. 

* CORRELATION * 

* VALUE * 
•***♦*****••***** 



.....*. A KEY PASSED 
*. .* 

*. .* 

*. .* 
* NO 
*♦♦♦ . 

♦ * . 

♦ F3 ♦.X. 

♦ ♦ 

♦ ♦♦♦ X 

STI3 .*. 

F3 ♦. 

• ♦ *• 

NONE .* WHAT IS « 
...... VALUE OF 

♦•■GENCODE' .* 



IS THERE A KEY. YES 
♦OR CORRELATION. ♦.... 
♦. VALUE .* 



IS THERE A KEY. 
. X*OR CORRELATION. 
*. VALUE .* 



* SET UP * 
<* INCLUDE ♦ 

* STRUCTURE * 

* * 
******+**♦♦♦*♦♦** 



****F5********* 

* 4 
•X* ERROR RETURN * 

* 4 
*************** 



***************** 



RESET 

♦♦♦♦HI ♦♦♦♦♦♦♦♦♦ 

* 4 

* ERROR ENTRY * 

* * 
**♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ SET + 

♦ UP PLAIN EOS ♦ 

♦ ORDER * 

♦ * 
***************** 



ST 25 X 

*****H4********** 
♦DATA STORE KJ* 
♦—♦—♦-♦-*-*-♦-*-* 

* PLACE * 
•ABOVE ORDER IN * 

* GDOA * 
*♦♦♦♦♦♦*********♦ 



«****J 1 ********** 

• * 

* SET UP ♦ 
♦PARAMETERS FOR ♦ 

♦ RESET * 

♦ ♦ 
***************** 



*****J3** ******** 
♦DATA STORE LQ* 

*—♦-♦-♦-♦-♦-*-*-* 

* * 
♦PLACE ORDER IN ♦ 

♦ GDOA ♦ 
♦♦♦♦♦♦♦♦♦******** 



ST26 X 

*****J 4*** ******* 
*DATA STORE KJ* 

*—*-♦-♦-♦-♦-♦-♦-♦ 

* PLACE * 

* EOS ORDER IN * 

* GDOA * 
***************** 



ST 32 X 

*****K 1 *+******♦♦ 
•RESET DB* 

*_*_*-*_*_*_*_*_* 

• RESET CDS TO ♦. 

• CONDITION ♦ 

• BEFORE CALL ♦ 
***************** 



****K2********* 

* * 

* RETURN * 

* * 
*************** 



•***K3* •**♦♦**• 

► * 
* RETURN * 

► * 
*************** 



ST27 X 

*****K 4 ********** 
♦DATA STORE KJ* 

*-*-*-♦-*-*-*-*-♦ 

♦ RESOLVE ♦ 

♦ ADDRESS FOR ♦ 

♦ FIRST ORDER ♦ 
***************** 
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**** 

* * 

* A4 * 

* * 
**** 



Chart CA. BGSEQ/BGSUB Subroutines 



****A1********* 

► IFFAFA05 * 

► OR IFFAFA18 * 

► ENTRY * 
****** ********* 



*****B1 ********** 

* * 

* * 

* INITIALIZATION * 

* * 

* * 
***************** 



****C2* ******** 

* * 
• X* ERROR RETURN 1 

* * 
*************** 



•*A SEQUENCE *, 

OR BUFFER 

♦SUBROUTINE.* 

*. BEGUN.* 



* ARE *. NO 

PARAMETERS .*... 
*. VALID .* 



•*IS IT A*. 
.♦2250 MODEL * 
.3 FOR BUFFER 
*. SUBRTN .* 



*.IT A SEQUENCE.*. 



*****G2*** ******* 

* SET UP * 

* APPROPRIATE * 
.X* INCLUDE/OMIT * 

* STRUCTURE FOR * 

* BUFFER SUBRTN * 
***************** 



SEE FIGURE 17. 



BEGPGB1 X 

*****H1 ********** 

* SET UP * 

* APPROPRIATE * 

* INCLUDE/OMIT *. 

* STRUCTURE FOR * 

* SEQUENCE * 
***************** 



BEGPGD2A X 

*****H2********** 
*DATA STORE KJ* 



***************** 



SEE FIGURE 18. 



***** J2* ********* 

* SE T UP KE Y , * 

* STORE LOGICAL * 

* BUFFER START *. 

* ADDR IN * 
♦GDSKEYSV FIELD * 
***************** 



HEGPGG2A X 

*****K3********** 
*KKY TBL MGT KE* 
*-*-*_*_*_*_*_*_* 

* STORE *. 

* KEY IN KEY * 

* TABLE * 
***************** 



.BEGPGF3 

****K4********* 

* * 
<* RETURN * 

* * 
*************** 
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Chart CB. LKSUB Subroutine 



****A2* ******** 

* * 
♦IFFAFA08 ENTRY * 

* * 
*************** 



*****B2********** 

* * 

* * 
♦INITIALIZATION * 

* * 

* * 
***************** 



w * *. ****C3********* 

.*" IS ». NO * * 

*- IT A VALID .* X* ERROR RETURN » 

♦ . GDS .* X * * 

». .* . *••**••*****••* 



. NO . *SUBHTK KEY *. 

.*........ X*. OR •CCRRVAL" . 

*. PASSED .* 



LKBLTB4 X 

•****E3* ********* 
♦KEY TBL MGT KE* 
*_*-*_♦-♦-*-*-*-* 

* OBTAIN * 

* KEY FROM KEY * 

* TABLE ♦ 
**♦•**•*♦**♦***** 



• **♦ 

* ♦ 

* E4 *.., 

* * 
**** . 

X 
*****I T *********** 

* * 

* SET UP ORDERS * 
♦TO CALL DUFFER ♦ 

* SUBROUT INE ♦ 

* * 
***************** 



***♦ 

* * 

* C3 * 

* 4 
*•** 



****F I ********* 

* * 

* LKBPHYS ENTRY * 

* * 
*************** 



. * IS THE *. 

KEY FOR A . 
BUFFER SUBRTN 



*-*-*-*-*-*-*-*-* 

* ST03C ♦ 
♦GRAPHIC ORDERS ♦ 

♦ AND DATA * 
♦*♦♦♦♦♦♦♦♦♦♦*♦♦♦* 



•♦♦♦•G I ********** 

♦ DETERMINE ♦ 

♦ SIZE OF GDOA ♦ 

♦ AND LOCATE ♦ 

♦ BUFFER ENTRY IN^ 

♦ BCT ♦ 
***************** 



*****G3* **♦•**♦♦♦ 

♦ SET ♦ 

♦ UP INPUT * 
♦PARAMETER LIST ♦ 
♦FOR DATA STORE ♦ 

♦ ♦ 
*♦♦♦♦***•**♦♦♦*** 



♦ COMPLETE THE ♦ 
♦KEY IF PRESENT. ♦ 

♦ PASS TO USER ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦*♦♦♦*♦♦♦* 



*****H l ********** 

* ♦ 

* COMPUTE ♦ 

* PHYSICAL BUFFERS 

* AODR FOR ♦ 

* LINKAGE * 
♦*•*•****♦♦♦♦♦♦♦♦ 



♦-♦-♦-♦- 



-*-*-*-* 



♦ COMPUTE ♦ 
♦PHYSICAL BUFFERS 

♦ ADDR ♦ 
***************** 



****J I********* 

► ♦ 

► RETURN * 

► ♦ 
*************** 



LKBLTJ5 X 

♦♦♦♦♦J *♦*♦**♦**♦* 
♦KEY TOL MGT KE* 
*_*_*-*-*-*-*-*-* 

♦ STORE *• 

♦ KEY IN KEY * 

♦ TABLE ♦ 
♦****♦**•**•****♦ 



**** Jtt********* 

X * * 

. . . . X* RE TURN * 

* * 

*************** 
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Chart DA. EXEC Subroutine 



****A1 ********* 

• * 

• IFFAFAU ENTRY • 

• * 
•ft************* 



*****B1********** 

• * 

* * 

• INITIALIZATION • 

* * 
••*••••••*••*•*•* 



.* IS THERE * 

*. A CURSOR IN 

♦.THIS GDS .* 



-*-*-*-*-*-*-* 
K* INSERT * 

* CURSOR IN * 

* BUFFER * 

***************** 



GDSCB VALID 



****C2********* 

* 4 
.X* ERROR RETURN 4 

• 4 
*************** 



.* IS THIS *. YES 
*.AN EQUIVALENT.*. 
*. GOS .* 



.* DOES 4 
*.GOOA CONTAIN 
• .ANY DATA .* 



EXC00550 

*****D2********** 

♦GCNTRL • 

*—*—*—*—*—*—*—*—* 

. ....X* *. 

X *RE START DISPLAY* 

. * * 

. ••*•••***•*••**•* 

•*** 

• • 

• D2 * 

• • 
*•** 



EXC00400 

•***D3********* 
* * 

...X* RETURN 4 
X * 4 

**•*•••******** 



*****04********** 
*GHRITE * 

*-*-*-*-*-*-*-*-* 
♦WRITE TRANSFER • 

* TO FLOW CTRL * 

* STRUCTURE * 
***************** 



EXCOOIOO .*. 



.* THERE ANY *. NO 
*. REPLACEMENT .* . . . 
*. DATA .* 



.* IS THIS *. 
•AN EQUIVALENT.* 
*. GOS .* 



*****F I ********** 
•GWRITE • 

•-*—•-•-*-*-*-*-* 

• WRITE * 

• REPLACEMENT • 
•DATA TO BUFFER • 
•••*••*•****••••* 



EXC00600 X 

*****F4********** 

* SET BIT TO * 

* INDICATE THIS * 
♦EQUIVALENT GDS * 

* IS IN BUFFER. * 

* CLEAR OTHERS * 
***************** 

. **** 



EXC00200 -*. 



.* IS THERE • 
•.ANY NEW DATA 
•-TO WRITE .* 



.* IS IT *. NO 

• .AN EQUIVALENT.*... 

*. GDS .* 



EXC00320 

*****G2********** 

* SET SWITCH TO * 

* SAVE DATA. • 
...X*CLEAR GDSREPDT *X. 

* AND GDSREPPB * 

* FIELDS * 
**••••••***••*•** 

**** 
. * * 

..X* B* * 
• • 

• •** 
EXC00250 

*****H2*** ******* 
•GWRITE * 

*—*—*—*-*-*—*—*—* 
K* WRI TE * 

♦ORDERS AND DATA* 

* FROM GDOA • 
•****••••****•••• 



EXCOIOOO X 

•****J !•••••••••• 

• MOVE TRANSFER • 

• ORDER TO FLOW • 

* CONTROL FROM *. 
•GDSOVOAT FIFLD * 

* TO GDOA • 
*••••••••****•*♦• 



.* IS IT *. »• 

*.AN EQUIVALENT.*. 
*. GDS .* 



.* THERE AN 
t. UNRESOLVED 
*. ADDR IN . 
*.GDOA .* 



EXC00300 

*****J4********** 

* UPDATE OACB * 

* FIELDS * 

...X* BUFSTART.BLP. * 
K *CRSA.LUGSTART. * 

* AND BUFLEN * 
***************** 



*****K3** ******** 

• SET OACB * 
+ FIELDS TO * 

• INDICATE ADDR *. 
4 IS NOW IN • 

• BUFFER * 
***************** 
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Chart EB. RESET Subroutine 



****A1 ********* 

* * 
♦IFFAFAI2 ENTRY * 

* 4 
*************** 



**** 

* * 

* A3 * 



* COMPUTE * 
♦DUFFER ADOR OF * 
*GOS TO OE RESET* 

* * 
***************** 



RST00440 



.* IS IT *. NO 
*.AN EQUIVALENT.*.... 
*. GOS .* 



**** 

* * 
» G3 * 

* * 

**** 



*****B1 ********** 

* * 

* * 

* INITIALIZATION * 

* * 

* * 
***************** 



* ARE *. NO 

PARAMETERS .*... 
*. VALID .* 



.* IS A *. 
.* KEY OR *. 

. CORRELATION . 
VALUE PASSED* 



****C2 ********* 

* * 
• X* ERROR RETURN * 

* * 
*************** 



*****D2* ********* 

* SET UP A * 

* DUMMY KEY. * 
X* LENGTH=0. * 

♦LOGICAL START=0* 



********* 



******* 



*****B3* ********* 

* * 
♦THE OACB IS SET* 
*UP TO POINT TO * 

* THIS LOCATION * 

* * 
***************** 



RST0I400 X 

*****C3 ********** 
*OUFFER MGT KC* 

*-*-*-*-*-*-*-*-* 

* RELEASE * 

* BUFFER NOT * 

* NEEDED * 
***************** 



*****D3* ********* 

* * 

* RESET * 

* REPLACEMENT * 
♦DATA IF NEEDED * 

* * 
***************** 



* IS THE *. NO 

GOS IN THE .*... 
». BUFFER .* 



* YES **** 

* * 

* G3 * 

* * 

. **** 

X 
*****C4********** 
♦EXEC DA* 

♦-♦-*-*-*-*-*-*-* 

♦ EXECUTE ♦ 

♦ THE RESET GDS ♦ 

♦ ♦ 
***************** 

**** 

* * 
..X* G3 * 

* * 
**** 



YES .* IS *. 

..*.IT A LEVEL 2 .* 
*. GOS .* 



RST01600 X 

*****E3* ********* 
*GWRITE * 

♦-*-*-*-*-*-*-*-* 

* WRITE GTRU ♦ 

* TO FLOW CTRL * 

* STRUCTURE * 
***************** 



•RST00200 X 

*****F1 ********** 
*KEY TBL MGT KE* 
*_*_*_*_*_*_*_*_* 
♦SEARCH FOR KEY * 
♦OR CORRELATION ♦ 
♦ VALUE ♦ 

***************** 



.HST00300 X 

*****G1 ********** 
*KEY TBL HGT KE* 
*-*-*-*-*-*-*-*-* 

* RESET ♦ 

* KEY TABLE TO * 

* ABOVE KEY * 
***************** 



*****F3********** 

* * 
♦REOPEN SEQUENCED 

* OR BUFFER ♦ 

* SUBRTN IF ♦ 

* NECESSARY ♦ 
***************** 

**•* 

* * 

* G3 *.X. 

* * . 
**** 

X 
****G3* ******** 

* * 

* RETURN * 

* * 
*************** 



RST00400 



.* IT TO BE *. NO 
•.RESET WITHIN .*... 
♦ .THE GDOA .* 



**** 

* * 

* A3 * 

* * 
♦ *** 



+ ****.) l********** 

* * 

* RESET ALL * 

* NECESSARY * 
♦FIELDS IN OACB * 

* ♦ 
***************** 



*****K 1********** 

* REOPEN A • 

* SEQUENCE OR * 
■» BUFFER SUBRTN * 

* IF NECESSARY * 



*** 



************* 
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Chart EC. IDPOS Subroutine 



• *** A 1 ********* 

* * 
♦IFFAFA13 ENTRY * 

* * 
*************** 



♦SET ERROR CODE * 
,X*AND ADDITIONAL * 

* INFORMATION + 

* * 
***************** 



INDIO 

***** A3 ********** 

* MOVE SCALED * 

* DATA TO * 

* GDSXCORR AND *X 
♦GDSYCURR FIELDS* 

* * 
***************** 



.* ARE *. 
► MORE * 

COORDINATES 
t. PASSED .* 



•****B1 ********** 

* * 

* * 

* INITIALIZATION * 

* * 

* * 
***************** 



*****B3* ********* 

* * 

* RESTORE * 

* INPUT MODE * 

* (GDSDATMDI * 

* * 
***************** 



* MOVE THEM * 

* TO SCALING * 

* INPUT ARRAY * 

* * 
***************** 



* C2 *.X. 



* ARE 

PARAMETERS 
*. VALID 



****C 2* ******** 

* RETURN * 

► « 

*************** 



IND14 X 

*****C4 ********** 
♦ SCALING KF* 

*—*—*—*-*—*-*—*—* 



***************** 



*****D1 ********** 

* MOVE INPUT X- * 

* AND Y- * 
♦COORDINATES TO * 

* SCALING INPUT * 

* ARRAY * 
***************** 



**4**D3*** ******* 

* RESTORE PRIOR * 

* 6DSXLAST AND 

* GDSYLAST 
♦FIELDS. RESTORE* 

* INPUT MODE * 
***************** 



*X. 



.* WAS *. 
3 .* SCALING 
.*. SUCCESSFUL 



♦TEMPORARILY SET* 

* INPUT MODE * 

* ABSOLUTE * 

* IGDSDATMD) * 
***************** 



IND15 X 

*****E4********** 

* MOVE SCALED * 

* DATA TO * 

* GDSXCURR AND * 
♦GDSYCURR FIELDS* 

* IN GDSCB * 
***************** 



*-*-*-*- 



.*-*-*-* 



•********♦♦♦♦♦♦** 



*****F4***+****** 

* * 

* RESTURE * 

* INPUT MODE * 

* (GDSDATMD) * 

* * 
***************** 



.* WAS *• 
* SCALING 
SUCCESSFUL 



*****G2* ********* 

* * 

* RESTORE * 
K* INPUT MODE * 

* <GDSDATMD) * 

* * 
***************** 



* SAVE GDSXLAST * 

* AND GDSYLAST * 

* FIELDS FROM * 

* GDSCB * 

***************** 



*****J l********** 

* MOVE SCALED * 

* DATA TO * 

* GDSXLAST AND * 

* GDSYLAST FIELDS* 

* * 
•*•***•*****••*** 
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Chart EA. ICURS Subroutine 



****A1********* 

* * 
*IFFADA03 ENTRY * 

* * 
*************** 



*****B1 ********** 

* * 

* * 

* INITIALIZATION * 
» * 

* * 
***************** 



****C2*** ****** 

* 4 
.X* ERROR RETURN 4 

* * 
*************** 



• *IS IT LEVFL*. NO 
► . 1 KEY OR .*... 

♦.•CORRVAL'.* 



****D3* ******** 

* * 
.X* ERROR RETURN * 

* * 
*************** 



KEYTBL X 

•****E1 ********** 
♦KEY TBI. MGT KE* 
*-*-*-*-*-*-*-*-* 
♦SEARCH FOR KEY * 
♦OR CORRELATION ♦ 
* VALUE ♦ 

***************** 



* GET LOGICAL * 

* BUFFER AODR * 

* FROM USER KEY * 

* * 
***************** 



.♦IS ADDRESS *. YES 
• IN MAIN .*.... 

*. STORAGE .* 

*.GDOA .* 



*****F 2* ********* 

* SET * 

* FLAG TO * 
X* INDICATE THIS * 

* IS THE CASE * 

* * 
***************** 



♦ COMPUTE ♦ 
♦PHYSICAL BUFFERS 
♦ADDR FOR CURSOR* 

* * 
***************** 



.* THERE A *, 

cursor in . 

♦.THIS 2250.* 



RESETRTN 

*****H2********** 

* STORE BUFFER * 

♦ ADDR IN * 

. ..X* GTMCRLOC SET *. 

X * GTMFLAGS AND * 

*GDSFLAGS FIELDS* 
***************** 



.* IS CURSOR * 

, X*.ADDR IN MAIN 

*. STCRAGE .* 



INSRTCUR 

*****H4********** 

* GCNTRL * 
*_*_*_*_*_*_*_*_* 

. ..X* INSERT *, 

* CURSOR IN * 

* BUFFER * 
***************** 



*****H 5* ********* 
♦GCNTRL * 

*-*-*-*-*-*-*-*-* 
X* RESTART * 

* RtGfcNERArlQN * 

* * 
***************** 



RESET X 

•****j| ********** 

♦ RCURS EB* 

*-♦-♦-«-*-*-*-*-* 

♦ ♦. 

♦ REMOVE CURSOR ♦ 

♦ ♦ 
♦♦♦***•********** 



ALLDONE 

X 
****J3* ******** 

* * 

* RETURN * 

* * 
*************** 



*****JS********** 

* * 

* CLEAR * 
.♦GTMCRLOC FIELD * 

* I N G TMCB * 

* * 
***************** 



8i» 



Chart £B. 



RCURS Subroutine 



****A3* ******** 

* * 
*IFFADA02 ENTRY * 

* * 
*************** 



*****B3* ********* 



♦ INITIALIZATION * 



***************** 



IS THE *. 

CURSOR IN 
.THIS 2250.* 



RCR0 16 

*****D )*********♦ 
•GCNTRL 



*-*-*—*- 



-*—*-*—* 



.* HAVE *. 
VES .* ALL BCT *. 
....*. ENTRIES BEEN . 
♦.SEARCHED .* 



***************** 



**•* 

* * 

* F2 *... 

* * • 
*••* . 

»****F 
► GCNTf 
*-*—*—*-*- 



* REMOVE CURSOR * 



***************** 



. * HAVE WE * 
.SEARCHED ALL 
•CONTIGUOUS.* 
♦BUFFER.* 



*****H2*** ******* 

* COMPUTE * 

* BUFFER START ♦ 

* AND REMAINING * 

* LENGTH TO BE * 

* SEARCHED * 
***♦******•*••*♦♦ 



**«**D3*« ******** 

* OBTAIN • 

* ADDR OF BCT. * 
♦SET PCINTERS TO* 
♦REFER TO TOP OF* 

* BCT * 
****** *********** 



X.. . 



RCROOI X 

**»**E3********** 

* SEARCH * 

* BCT FOR * 
...X* ASSIGNED * 

♦ENTRIES. UPDATE* 

* POINTERS ♦ 
♦♦»♦♦♦♦**•***•*** 



.* THIS BCT 
. ENTRY 

•.ASSIGNED 



RCR0I3 X 

**«**G3* ********* 

* COMPUTE NO. * 

* OF BYTES OF * 

* BUFFER IN * 

* CONTIGUOUS * 
•ASSIGNED BUFFER* 
***************** 



*****H3* ********* 

* * 

* COMPUTE * 

* BUFFER START * 

* ADDRESS * 

* * 
***************** 



**** 

♦ * 

♦ D4 *.X. 

♦ • 
• *** 

RCR017 X 

*****D4 *♦+******* 

♦ ♦ 
♦RESET GTMCRLOC ♦ 

♦ AND GTMFLAGS ♦ 

♦ FIELDS IN GTMCB* 

♦ ♦ 
*♦♦♦♦♦****♦♦♦***♦ 



•****E4 ********** 

♦ OBTAIN * 

♦ ADDRESS OF * 
♦FIRST G05CB IN ♦ 

♦ CHAIN FROM ♦ 

♦ GTMCB ♦ 
♦♦♦♦♦♦*********** 



•*IS IT LAST * 

.Xt.ONE IN GDSCB 

♦ . CHAIN .* 



tt***Cl*** ******* 

♦ ♦ 

♦ REMOVE CURSOR ♦ 

♦ FLAG FROM GDSCB* 

♦ *GDSFLAGS) * 

♦ * 
♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦****H4** ******** 

* * 
♦OBTAIN AODRESS ♦ 

.♦ OF NEXT GDSCB ♦ 

* IN CHAIN ♦ 

* * 
*♦******•*♦♦♦•♦♦* 



****F5********* 
* * 

► RETURN * 

t * 

*************** 



RCRO I 4 X 

*****J3********** 
*GREAD * 

♦-*-♦-*-*-+-*-*-* 

* CHECK FOR * 
♦CURSOR IN ABOVE* 

* BUFFER * 
***************** 



*. CURSOR FOUND 



• NO 


*♦♦♦ 




♦ ♦ 




♦ F2 ♦ 


X 


* * 


**** 


**** 


* * 




* D2 * 




• * 




**** 
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Chart EC. GSPRD Subroutine 



**** 

* * 

* A4 ♦ 

* * 
♦ ♦♦♦ 



**** 
* < 

**** 



♦*** A 1 ********* 

* * 
*IFFADA01 ENTRY « 

* * 
*************** 



**»**B I ********** 

* * 

* * 
•INITIALIZATION * 

* * 

* * 
***************** 



*****A4 ********** 
*GREAO * 

*-*-*-*-*-*-*-*-* 

* READ FROM * 
♦BUFFER, RESTART* 

* REGENERATION * 
***************** 



**************** 



MOVEOATA .*. 

B4 *. 

.* ARb *. 

.♦CHARACTERS *. 

*. ONLY TO BE 

*. READ .* 



MOVECHAR 

*****B5********** 

* TtST FOR * 

* CHARACTERS, * 
. ..X*UPDATE COUNTERS* 

* AND MOVE ONLY * 

* CHARACTERS * 
***************** 



* ARE 

PARAMETERS 
*. VALID . 



****C 2** ******* 

* * 
■X* ERROR RETURN * 

* * 
*************** 



*****C4 ********** 

* MOVE * 

* ALL DATA READ * 
♦INTO WORK AREA * 
*TO USER'S AREA * 

* * 
***************** 



.* IS THE *. YES * OBTAIN * 

*. ENTIRE GDS TO.* X*LOGICAL LENGTH *. 

*. BE READ .* * FROM OACB * 

*. .* * * 

*. .* ***************** 



KEYTBLE X 

*****F1********** 
•KEY TSL. MGT KE* 
♦-*-*—♦-*-*-*-*-* 

* SEARCH FOR * 
•KEY/CORRELAT ION* 

* VALUE • 
***************** 



* OBTAIN BUFFER * 
X* LENGTH FROM *. 

* USER'S KEY(S) * 

* * 
***************** 



THIS IS DONE 
INDIVIDUALLY 
FOR EACH KEY 
OR 'CORRVAL' 
PASSED. 



* COMPUTE * 

* BUFFER LENGTH *. 

* FROM KEY! SI * 

* • 
<****•*«********** 



.* IS THERE * 

.MORE TO READ 

♦.FROM BFR .♦ 



♦♦♦♦05* *♦*♦♦♦♦* 

* * 

* RETURN * 
► * 

**♦♦♦♦♦♦******* 



TSTCOUNT 



, *COUNT MORE * 
. THAN BUFFER 
*. LENGTH .* 



BUFLGTH X 

*****F 3* ********* 

* SET * 

* READ CONTROL * 
•AREA AND INDEX = * 

* BUFFER LENGTH * 

* * 
***************** 



PRECOMP X 

*****G3** ******** 

* COMPUTE * 
♦PHYSICAL BUFFERS 

* ADDR FOR • 

* SECTION TO BE * 

* READ * 
***************** 



*****H3* ********* 

* INITIALIZE * 

* COUNTERS. * 

* CALCULATE * 

* LENGTH OF * 

* BUFFER * 
***************** 



*****E4********** 

* * 
♦CALCULATE NEXT * 
♦BUFFER SECTION *.. 

* TO BE READ * 

* * 
***************** 



*****F4********** 

* SET * 

* READ CONTROL * 
•X* AREA = COUNT * 

* AND INDEX-0 * 

* * 
***************** 



**** 

* * 
, X* K3 * 

* * 
**** 



.*. 
J3 *. 
.* *. 
.* IS *. YES 


CURSCTL 

***** J *********** 

* • 

* SET PARAMETER * 


*. NEGATIVE .* 

*. .* 
*. .* 
* NO 
**•* 

* . 
K3 *.X. 

* • 
***• . 


• CURSOR * 

* • 
*•*********••**•• 



*****K3*» ******** 

* * 

* SET PARAMETER * 
♦LIST TO READ BY* 

* COUNT * 

* * 
*****•*•*•*•***•* 



****** 4********** 
•GREAD • 

*-•-*-*-*-*—*-*-* 

• • 
•READ TO CURSOR * 

* • 
***************** 
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***• 

* * 

* A4 * 

* * 
*••* 



• ••• 

* * 

* A5 * 

* * 

• *•• 



Chart FA. CRATL Subroutine 



**** 

* 4 

* A4 4 

* 4 
**** 



+***A1********* 

* * 
♦IFFACAOO ENTRY * 

* * 
*************** 



CR15 X 

*****A4*** ******* 

* PLACE * 

* AODR OF ATLCB * 

* IN * 

* USER-SPECIFIED * 

* VARIABLE * 
***************** 



*****B 1 ********** 

* * 

* * 

* INITIALIZATION * 

* * 

* * 
***************** 



.* THIS THE *. NO 
f. FIRST ATLCB .*... 
*. CREATED .* 



*****n 5* ********* 

* * 

* PLACE * 
. X* THIS ATLCB IN * 

* CHAIN * 

* * 
***************** 



* ARE 

PARAMETERS 
*. VALID 



****C2 ********* 

* * 
.X* ERROR RETURN * 

* * 
*************** 



* SET PROPER * 
♦FIELDS IN ATLCB* 

* AND GTMCB * 

* * 
***************** 



*****C5********** 

* MAKE ATLCB * 

* ACTIVE LiY + 

* PLACING ITS * 

* ADDR IN THE * 

* GTMCB * 
***************** 



♦ASSUME DEFAULT * 
♦FOR •DEQUECTL* * 

* IF NECESSARY * 

* * 
***************** 



CR17 X 

♦****D4 ********** 

♦ GCNTRL * 
+-*-*-*-*-*-*-*-* 

* TURN ON PFK * 

♦ INDICATORS PER * 

* GTMLIGHT ♦ 
***************** 



*****E1********** 
♦GETMAIN * 

*—*—*—*—*—*—*—*-* 

* OBTAIN * 

* STORAGE FOR * 

* ATLCB AND ADEQS* 
***************** 



OUTRTN 

X 
•***E4** ******* 

* 1 

* RETURN 4 

* 4 
*************** 



•* THERE 4 
♦.PRESENTLY AN 
*. ACTIVE .* 
♦.ATLCB.* 



CR12 

*****F2 ********** 
♦ATTNINQ * 

*-*-*-*-*-*-*-♦-♦ 
...X* INQUIRE IF ♦> 

* GSP GACB * 

♦INDICATES ATTN ♦ 
♦♦♦♦♦*♦♦*♦******* 



CRIO X 

*****G1 ********** 
♦SAEC * 

*-*-*-*-*-*-*-*-* 



* DISABLE GSP * 

* GACB * 
***************** 



.* ANY *. 
.* ATTENTION * 
■• INFORMATION 
*. AVAIL .* 



*****H1 ********** 

* START * 

* INITIALIZING * 

* ATLCB. OBTAIN * 

* ADDR OF FIRST * 

* ADEQ * 
***************** 



CR11 X 

*****H2* ********* 

* PLACE DATA IN * 

* ACTIVE ATLCB * 

* ADEQ. SET ♦. 

* ATTNMLEN FIELD * 

* APPROPRIATELY * 
***************** 



* CHAIN ADEQS * 

* TOGETHER. * 
♦COMPLETE ATLCB * 

* FIELDS * 
***************** 



**•* 

* * 

* A4 * 

* * 
**** 
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Chart FB. ENATL Subroutine 



****A1********* 

* * 
♦IFFACA01 ENTRY * 

* * 
*************** 



****A« ********* 
* * 

► ENCZO CNTRY * 
P= * 

*************** 



*****Bl ********** 

* • 

* * 

* INITIALIZATION * 

* * 

* * 
***************** 



*—*-*—*-*-*-*—*-* 

* INOUIRE IF * 

* ATTENTION * 

* OCCURRED * 
***************** 



* ARE 

PARAMETERS 
*. VALID 



****C2* ******** 

* * 
.X* ERROR RETURN * 

* * 
*************** 



.* ANY *. 
t ATTENTION *. YES. 

INFORMATION .*.... 
(. AVAIL .* 



.* SPECIFIED *. 

t. ATLCB TO BE . 

*. DELETED .* 



.* ARE *. 
.* THERE ANY *. YES 
.X*. LOWER ATLCDS .*.... 
*.ON CHAIN . * 



*****D3 ********** 
•END20 * 

•-*—*—*—*-*—•-*—• 
K* REMOVE * 
•ATTENTION DATA * 
* FROM CSP GACB * 
***************** 



****D* ********* 
► * 

* RETURN * 

t * 

*************** 



END05 X 

*****E I ********** 
♦END20 * 

*-*-*-*-*-*-*-*-* 

* REMOVE * 
♦ATTENTION DATA * 

* FROM GSP GACB * 
***************** 



END19 X 

*****E3********** 
*SAEC * 

*-*-*-*-*-*-*-*-* 

• * 

• DISABLE GSP * 

• GACB * 
***************** 



END21 X 

*****F1 ********** 
*SAEC * 

*-*_*-*-*-*-*-*-* 

• • 

• DISABLE GSP * 

• GACB * 
***************** 



*****F3* ********* 

* PLACE ADDR * 

* OF SPECIFIED * 

* ATLCB IN GTMCB.* 
•SET ATTNFHPT TO* 

* ZERO * 
•*•*•***•******•* 



.* DOES *. 
► SPECIFIED * 

ATLCB POINT 
►-TO GTMCB .* 



*****G2 ********** 

* ESTABLISH * 

* NEW ACTIVE * 
<* ATLCB. SET *. 

•FIELDS IN GTMCB* 

* AND ATLCB * 
•••*•*•********** 



END08 X 

*****G3»* ******** 

* PLACE * 

* ACTIVE ALTCB * 
...X*ATTENTION MASKS* 

* IN GSP GACB. * 
♦SET LP RESTART * 
*******•**•*••*** 



*****H1********** 

* CLEAR * 

* GTMLATBL FIELD * 

* TO INDICATE • 

* THERE IS NO * 

* ACTIVE ATLCB * 
***************** 



ENDI3 X 

•****H3* ********* 
*GCNTRL * 

*—*—*—*-*—*-*-*—* 

* LIGHT PFK * 

• INDICATORS PER * 
*ATTNLITE FIELD * 
••••************* 



END10 X 

*****J 1********** 
•GNCTRL * 

*—*—*—*—*-*—*-*-* 

* TURN OFF *. 

* PFK INDICATOR * 

* LIGHTS * 
***************** 



*****J3********** 

* * 

* OBTAIN * 
<* ADDR OF ATLCB * 

* TO BE FREED * 

* • 
*•••••**•••*•**** 



END17 X 

*****K3* ********* 
*FREEMAIN • 

*—*-*—*-*—*—*—*-* 

* FREE STORAGE *. 

* FOR ATLCB AND * 

* ADEOS * 
***************** 



.* ANY MORE *. NO 
.X*.ATLCBS TO BE .*... 
*. FREED .* 



UUTHTN 

****K5* ******** 

* 4 
. ..X* RETURN * 

* * 
*************** 
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Chart FC. ENATN Subroutine 



IFFACA02 

****A2**» ****** 

* * 
♦IFFACA02 ENTRY * 

* * 
*************** 



*****B2*** ******* 

* * 

* * 
♦INITIALIZATION * 

* * 
» * 
t ********* ******* 



.* ARE *. NO 

*. PARAMETERS . *... 

*. VALID .* 



ERROR 

****C3********* 

• * 
. ..X* ERROR RETURN * 

* 4 
*************** 



*-*—*—*-*-*—*—*—* 



***************** 



ACTATNLV 



* UPDATE * 
•ATTENTION MASKS* 

* IN ATLCB * 

* * 
***************** 



*. .* 



RE TCODE 

****E5********* 

* * 
. ..X* RETURN * 

* * 
*************** 



*****F4********** 

* PUT * 

* NEW ATTENTION * 

* MASKS IN GSP * 
•GACB FROM ATLCB* 

* * 
****•*••**•***•*• 



ATNO X 

*****G2********** 

•ATTNINQ • 

*—*—*—*—*—*—*—*—* 

..X* * 

* REQUESTED • 

• SOURCES * 
***************** 



ARE ANY *. 
PFK KEYS « 

. ENABLED .* 



.* ANY *. 

•YES .* ATTENTION *. 

,*. INFORMATION .* 

*. AVAIL .* 

*. .* 

*. .* 

• NO 

'.X.. ........ 



.* ARE *. 
.* THESE PFK *. H 
•.KEYS USED FOR.*. 
*. LIGHTS .* 



TEST ATTN 
REO60 X 

••••• J2********** 

• TEST ENTRIES • 

• ON ATTNMLEN * 

• QUEUE WITH • 

• NEWLY ENABLED • 

• SOURCES • 
•••***••••••••**• 



TURNONL X 

•••••J *••••*•**** 
•GCNTRL * 

•—•—*—•—•—*-*—*—* 

• TURN ON PFK «... 

• LIGHTS PER * 

• ENABLED KEYS • 
*•••••••*•••••*•• 



.* ARE *. 
.* THERE ANY *. YES 
. MATCHING .*.... 

•ATTENTIONS.* 



»**»*K3********** 

• REMOVE THE • 

• ENTRIES FROM * 
■ X*ATTNMLEN QUEUE • 

• AND PLACE ON • 

• ATTNAVAL • 
***************** 
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Chart FD. CONVERTA Routine 



♦♦♦♦Al********* 

* * 
♦CONVERTA ENTRY * 

* * 
*************** 



*****B1********** 

* * 

* INDICATE THIS * 

* IS FIRST * 
» ARGUMENT UPON * 

* ENTRY * 
***************** 



THIS ROUTINE IS COMMON TO <ANO INCLUDED WITHIN) 
ENATN. DSATN, AND RQATN. IT IS USED TO CONVERT THE 
•ATTN SOURCE' ARGUMENT (S) INTO ATTENTION MASKS. 



**•* 


. 






* * 








* CI *.x. 






* * 








**** 


X 






REQI8 


.*. 






C 


*. 






.* 


IS * 






..* ATTENTION 


♦ . YES 


*. SOURCE 






♦.NEGATIVE 


* 




*. 


.* 






4 


. .* 
* NO 






**** 








* * 








* Dl *. 


X. 






* * 








**** 


X 






REQ24 


.*. 







.* IS IT 

THE FIRST 
*. ARGUMENT . 



. * WAS * 
. * PREVIOUS 
. ARGUMENT 
*. NEGATIVE 



.* VALUE GT *. YES 
► . PREVIOUS .*.... 

♦.ARGUMENT .♦ 



*****C5* ********* 



***************** 



ARGUMENT GT 



****D2*** ****** 

♦ * 
.X* ERROR RETURN * 

♦ * 
*************** 



♦ *** 

♦ ♦ . 

♦ El ♦.X. 

♦ * 

♦ *♦♦ X 

.*. 

El *. 

.* *. 

.* IS *. V 

*. ARGUMENT GT .*, 



REQ21 

•****E 2* ********* 

♦ SET UP * 
♦MASK FOR OTHER * 

. ..X* THAN PFK * 

♦ ATTENTIONS IN * 

♦ REGISTER ♦ 
♦♦♦♦♦♦♦♦***♦♦♦**• 



*****F 1********** 

♦ SET UP PFK * 

♦ MASK FOR * 

♦ ATTENTION * 

♦ SOURCES IN * 

♦ REGISTER * 
***************** 



.* ATTENTION *. 

SOURCE 

♦.NEGATIVE .* 



*****G2** ******** 



***♦****♦♦♦*•***♦ 



.♦. 
H2 ♦. 

.♦ DOES ♦. 
YES .♦ARGUMENT = 
....*. PREVIOUS 

♦.ARGUMENT . 
♦ .VALUE.* 
♦ . .♦ 
♦ NO 



.♦ ARE THERE ♦. 

MORE 

♦ .ARGUMENTS.* 



..X* El * 



**** 



***** J2** ******** 

* SAVE PRESENT ♦ 

♦ ONE, STEP TO ♦ 
.X*NEXT ARGUMENT. ♦ 

♦ INDICATE NOT ♦ 

* 1ST ARGUMENT * 
***************** 

**** 

* * 
..X* CI * 

* * 
**•* 



♦ PLACE MASKS * 
♦IN REGISTERS ♦. 

♦ AND 1 ♦ 

♦ ♦ 

***************** 



*♦♦♦«♦♦♦♦*♦♦♦♦ 

► * 

► RETURN « 

► * 
**♦♦♦♦♦♦♦♦**•** 
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Chart FE. RQATN Subroutine 



****A1********* 

* * 
♦IFFACA08 ENTRY * 

* * 
*************** 



*****Bl********** 

* * 

* * 

* INITIALIZATION * 

* * 

* * 
***************** 



* ARE 

PARAMETERS 
*. VALID 



RE014 X 

*****Dl ********** 
*CONVERTA FD* 

*-*-*-*-*-*_*_*_* 

* ESTABLISH * 

* ATTENTION MASKS* 

* * 
***************** 



* El 



**•• 
NTD«RECT 

»*4**E1 ********** 

* PROCEED TO * 

* TEST ATTNMLEN * 
•FOR A MATCH ON * 

* ATTENTION * 

* INFORMATION * 
***************** 



ERROR 

****C 2*** ****** 

* * 
. ..X* ERROR RETURN * 

* * 
*************** 



***** 
*FF * 
* Al* 



RE071 .*. REQ72 

B3 *. *****B4********** 

•*ARE X- *. *GREADR * 

.* AND V- *. YES *-*-*-*_*_*_*_*_* 

*. COORDINATES .* X* READ X. Y * 

*. WANTED .* * POSITION * 

*• •* * REGISTERS * 

*• • * ***************** 

* NO 
**«* 

*FE * 

* C3 *.X. 

* * .X.. 

**** X 

• *• 

C3 *. *****C4********** 

•* *• *GCNTRL * 

.»IS RESTART *. YES *-*_*-+_*_*_*_*_* 

*. OF DISPLAY .* X* RESTART * 

*. WANTED .* *OISPLAY AT NEXT* 

*• • * * BYTE * 

*. •* ***************** 

* NO 

.X. ....................... I 

X 
REQ101 .*. 

03 *. *****Q4********** 

•* *• *LPEOS FF* 

.* WAS *. YES *-*_*_*_*_*_*_*_* 

*. 'ARRAYNAME' .* X* LP OR * 

♦.SPECIFIED.* *EOS CONVERSION * 

*• .* * * 

*. .* ***************** 

* NO . 

.X.. I 

X 
*****E3********** 

* PLACE * **** 

* APPROPRIATE * * * 

* CODE IN *....X* G4 * 

* •CGDELOC* * * * 

* * **** **** 
***************** * „, 



***** AS* ********* 

* DETERMINE * 

* BCT ENTRY FOR * 

* THE BUFFER ADDR* 

* OF LP ATTENTION* 

* * 
***************** 



****** 



♦♦♦♦♦B5++*4 

* SEARCH * 
♦CHAIN OF GDSCBS* 

* FOR GDS Wl TH * 

* ABOVE BUFFER * 

* ASSIGNED IT * 
***************** 



.* THE LIGHT *. YES 
*. PEN ENABLED .*.... 
*.IN GDSCB .* 



***** 
*FF * 
* Fl * 



* F4 * 



.* WAS *. 
.* ATTENTION *. 
. INFORMATION . 
♦ .DEQUEUED .♦ 



*****E5*** ******* 

* * 

* * 

* DEQUEUE ENTRY * 

* ♦ 

* ♦ 
***************** 



.» ANY *. 
.* ATTENTION *. NO 
.FOR REQUESTED.*... 
*. SOURCES .* 



•*• REQ52 X 

F3 *. *****f-4********** 

•* IS *. * INDICATE NO * 

.* IMMEDIATE ♦. YES ♦ ATTENTION HAS ♦ 

.X*. RETURN WANTED.* ..X* OCCURRED FOR * 

* THIS SOURCE * 



*. 



.* 



* RESTART 

FLAG ON U 
♦.GSP GACB 



* G4 *.X. 



REQ56 




.*. 




GI 


*. 




.* 


* 


YES .* 




IS 


...*. 


THE 


ATLCB 


* 


. ACTIVE 



HI *. 

.* IS IT *. 

.* OPTION TO 4 

. DEQUEUE ON 

*. INACTIVE .4 

*. ATLCB.* 

*. .* 

* YES 



*****J l********** 



* DEQUEUE ENTRY * 



***************** 



.* ARE *. 
.* REQUESTED *. 
SOURCES . 

*. ENABLED .* 



****G3* ******** 

* 4 
. X* ERROR RETURN 4 

* 4 
*************** 



****G4********* 

* 4 

* RETURN 4 

* 4 
*************** 



.*• REQ63 

H2 *. *****H3********** 

•* IS *. *ATTNINQ * 

.* IMMEOIATE *. YES *-*-*-*-*_*_*_*_* T y p E =ANY 

♦ .RETURN WANTED.* X* REMOVE *MODE=C 

*• •* * SOURCES FROM * 

*• •* * GSP GACB * 

*• .* ***************** 

* NO 



*****GS* ********* 
♦GCNTRL * 

*-*-*-*-*-*-*-*-* 

* RESTART * 
♦DISPLAY AT NEXT* 

* BYTE * 
***************** 



**** 

* * 

* El * 

* * 
**** 



***** J2»* ******** 
♦ATTNINO • 

*-*-*-*-*- *-*-*-*TYP= ANY 

* REMOVE *MODE=W 

* SOURCES FROM * 

* GSP GACB * 
***************** 



.* ANY *. 
.* ATTENTION * . NC 
♦.FOR REQUESTED.*.. 
*.. SOURCES .* 



.* IS IT *. YES 

*. LIGHT PEN .*.... 
■*. ATTENTION.* 



* NO 


• *** 




* * 




* AS * 


X 


* * 


**** 


**** 


* • 




* A3 * 




* * 




**•* 
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Chart FF. RQATN Subroutine (continued) 



***** 

*FF * 
* Al* 

* * 



.* IS IT *. 

. PFK KEY 

♦.ATTENTION.* 



.* IS IT *• 

. END KEY . 

♦.ATTENTION.* 



*****A3 ********** 

* ♦ 

* HOVE * 
. X*OVERLAY CODE TO* 

* THE ARRAY * 

* * 
*•****••**♦****** 



*****B2********** 

* * 

* PLACE * 
X* CODE 32 IN * 

* •CODELOC" * 

* ♦ 
********•***♦♦*•* 



•****B3* ********* 

* * 

* PLACE PFK ♦ 

* KEY NUMBER IN * 

* • CODELOC* * 

* * 
a**************** 



*****C1 ********** 

* * 

* PLACE ♦ 

* CODE 33 IN ♦ 

* • CODELOC* * 

* * 
***************** 



****D1 *******♦♦ 
t * 

* RETURN * 

* * 
*************** 



♦ ♦*** 
*FF * 

* Fl* 



.* IS LP *. 
» CHAR ♦ . N 

INFORMATION .*. 
*. WANTED .♦ 



.» THE LIGHT * . NO 
K. PEN IN .*..X 

♦.CHARACTER.* 
•.MODE .* 



*-*-*-*-*-*-*-*-* 

• READ *• 
•CHARACTER FROM * 

* BUFFER * 
***************** 



***** 
*FE * 
* C3* 



♦♦♦♦E3**»****** 

* * 

* LPEOS ENTRY * 

* * 
•*••*•••*••*•** 



•****F3* ********* 

* CLEAR ARRAY. • 

* OBTAIN PROPER • 

* BCT ENTRY FOR * 
♦BUFFER AODR OF • 

* ATTENTION ♦ 
♦♦♦♦♦♦♦♦♦*******• 



♦****G3*« ******** 

* SEARCH * 
♦CHAIN OF GDSCBS* 

* FOR GOS WITH * 

* ABOVE BUFFER * 

* ASSIGNED • 
**♦♦•••***••••♦** 



.♦ OOES 

.X*. 60SBCTID = 
♦.BCT ENTRY. 

♦. ID .» 



*****J3 ********** 

* * 

* OBTAIN * 

* NEXT GDSCB ON * 

* CHAIN * 

* * 
****••**•••••*••• 



. • ANY * . 

GDSCB 

•.REMAINING.* 



« STORE ADDRESS * 
K* OF GDSCB IN * 
*WORD 1 OF ARRAY* 
* * 

•***♦♦♦♦••*♦***•♦ 



• *IS IT PART *. H 
► . OF MULTIPLE .♦. 
♦BUFFER ASGN* 



*****C4** ******** 

* USE POINTER * 

* BYTE OF BCT * 

* ENTRY TO FIND * 
♦START OF BUFFER* 

* ASSIGNMENT * 
***************** 



*****0*********** 
•COMPUTE LOGICAL* 
•DIFFERENCE FROM* 
•BUFFER START TO* 
♦BUFFER ADDR IN ♦ 
* SENSE BYTES * 
**•*•**•♦*****•** 



***t*Bb ********** 

* DETERMINE * 
♦BEGINNING AODR ♦ 

. X^OF THIS BUFFER * 

* ASSIGNMENT * 

* * 
***************** 



*****CS**** ****♦♦ 
♦COMPUTE LOGICAL* 
♦DIFFERENCE FROM* 

* BEGINNING TO * 

* BUFFER AODR IN * 

* SENSE BYTES * 
***************** 



REG402 X 

*****E4********** 

♦ DETERMINE ♦ 
•COUNT FROM BCT * 
♦ENTRY. MULTIPLY* 

♦ BY GDOA ♦ 

♦ LENGTH-6 ♦ 
*•*******♦**•**•* 



♦♦•**F *********** 

• ADD RESULT TO * 

• LOGICAL • 
♦DIFFERENCE AND ♦ 
•STORE IN WORD 3* 

• OF ARRAY * 
***************** 



***** 

♦ FG ♦ 

♦ Al* 



.♦IS THERE A 


* 


NO 




*. KEY TABLE 

». ADOR IN 








* 




X 


• .GDSCB.* 






***** 


*. .* 






*FG * 


• YES 






* Al* 


• *♦♦ . 






* * 


♦ FF ♦ 








• J4 ♦.X. 









•••• . 

REQ300 X 

***** J *********** 

• * 

• OBTAIN * 
•FIRST ENTRY IH • 

• KEY TABLE * 

• * 
***************** 

• *•• . 

• FF • 

• K4 *.X. 



t****K *********** 

* ADO BUFFER * 

* LENGTH TO * 

* LOGICAL START *. 

* COMPARE WITH • 
•WORD 3 OF ARRAY* 
***************** 



IS VALUE *. 


NO 


OF WORD 3 . 


*.... 


LESS .» 




*. .* 




*. .* 


X 


* YES 


***** 




♦ FG * 


. 


* F3^ 



***** 
*FG * 
* Al* 



***** 
*FG * 
* D2* 
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Chart FG. RQATN Subroutine (continued) 



***** 

*FG * 
* Al* 



•****A3 ********** 

* PLACE * 
♦CHARACTER CODE * 

.X* IN WORD IO OF * 

* ARRAY, LEFT * 

* JUSTIFIED * 
***************** 



* Al * 

* * 
*••* 



BI 



*. 



.♦ABE X- *. 

.* AND Y- *. 

. COORDINATES . 

*. WANTED ON.* 

*. EOS .* 



*. 



* YES 



* CI *.X. 



.« THESE *. YES 

. COORDINATES .*.... 
•EQUAL ZERO.* 



* ESTABLISH * 
•PARAMETER LIST * 

* FOR CNVRT * 

* * 
•*•*•*•*•****•*** 



*-*—*— *-*-*- *— *- 



♦ CONVERT TO USER* 

* UNITS * 
***************** 



•****F1********** 

* STORE X- * 

* AND Y- * 
•COORDINATES IN • 

* WORDS 8 AND 9 • 
» OF ARRAY * 
***************** 



+***B2*** ****** 

* * 

* Re TURN * 

* * 
***•*•*****•*** 



B3 *. 
. *ARE X- *. 
. * AND Y- *. NO 
. COORDINATES .*... 
*. WANTED ON.* 
*. LP .* 
*. .* 
* YES 



****B4********* 
* * 

» RETURN * 

► » 

•*•*****•*•*•** 



***** 
*FG * 
• D2* 



.* VALUE OF *. YES 
► . WORD 3 LT .*.... 
*. LOGICAL .* 
*. START. * 



IS THIS 

SEQUENCE 

KEY 



RE 0306 

*****E3 ********** 

* PLACE * 

* FIRST WORD OF * 

. ..X* KEY ENTRY IN *. 
•WORD 5 OF ARRAY* 



***************** 



*****E4**« •*••*** 

* PLACE * 

* THIRD WORD OF * 
.X» KEY ENTRY IN *. 

•WORD 7 OF ARRAY* 

* • 
•***********♦•••* 



•****E5**** ****** 

* SUBTRACT * 

* LOGICAL START * 
. X* FROM VALUE IN ♦ 

* WORD 3 OF ARRAY* 

* STORE IN WORD <>* 
••a************** 



. 








«*** 










»FG * 










• F3 *... 










• * 


X 








»*** . 


.*. 








RE 0305 X 


F2 *. 








*****F3 ********** 


.♦IS THIS*. 








» • 


A BUFFER 


*. 


YES 




•OBTAIN ADDRESS * 




** 








KEY 






X * ENTRY IN KEY * 


*. .* 








» TABLE * 


*. .* 








. «****••***•****** 


* NO 








• •** 








* 


« . 


" 






* 
* 


F3 * 


. 








**** . 



•****G2*** ******* 

* PLACE * 

* FIRST WORO OF * 

* KEY ENTRY IN * 
*WORD 2 OF ARRAY* 

* * 
•*♦***•••****•••* 



*****H2********** 
+ PLACE * 

* THIRD WORD OF * 

* KEY ENTRY IN * 

• WORD* OF ARRAY * 

• • 
•*••*••*•••***••• 



. • HAVE WE * 
♦.EXCEEDED END 
•• OF KEY .* 
*. TABLE.* 



***** 
*FF * 
* K4* 



.♦ ARE THERE *. YES 
MORE KEY .*.... 

*. TABLES .♦ 



♦ NO 


***** 




*FF * 




* J4* 


X 


* • 


♦ ♦♦• 


• 


• * 




* Al * 




• * 




***• 





.* IS IT *. 

.* CHARACTER 
►. MODE 

*. DETECT . 



»****J3* ********* 

* * 
•PLACE CHARACTER* 

.X*COUNT OF DETECT* 

* IN WORD 3 OF * 

* ARRAY * 
***************** 



*****K2********** 

* DECREMENT * 

• WORD 3 OF • 

• ARRAY BY • 

♦ LOGICAL ♦ 

* START ♦ 
***************** 



• ••* 

* * 

* F3 * 

* * 
**•* 
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Chart FH. MPATL Subroutine 



♦***A1********+ 

* * 
♦IFFACA04 ENTRY * 

* * 
*************** 



MP2 3 

**** A3 ********* 

* * 

* DATA SAVE ENTRY* 

* * 
*************** 



♦DISABLE THE GSP* 
* GACB * 

***************** 



►♦**A5********* 

* 

RETURN < 

4 

)L** ************ 



*****BI********** 

* * 

* * 

* INITIALIZATION * 

* * 

* * 
**♦***♦♦••**•***• 



-♦-*-*-*-*-*-*-* 



***************** 



.*IS ANY *• 
► ATTENTION * 

INFORMATION 
►.AVAILABLE.* 



♦♦♦♦♦B5********** 

* * 

* PLACE DATA * 
<* IN ATTNMLEN * 

* QUEUE * 

* * 
***************** 



.* ARE 

*. PARAMETERS 
*. VALID 



ERROR 

****C2 ********* 
v * 

.....X* ERROR RETURN * 
X * * 

*************** 

**** 

* * 

* C2 * 

* * 
**** 

MP 10 

♦♦♦♦*D2* ********* 

* DETERMINE * 
♦RELATIVE ATLCB.* 

X* SAVE ADORESS, *. 

* SET COUNT REG * 

* TO ZERO * 
***************** 



* NO 
**** . 

* * 

* El *.X. 
« * . 

**** . 
DB X 

«4«**E1 ********** 

* * 

* SET * 
♦COUNT REGISTER * 
» TO ZERO * 
» * 
K,t.*n* ************ 



.* DOES *. 
.* RELATIVE * 
». ATLCB POINT 
♦ .TO GTMCB .i 



*****on* ********* 

♦ LOAD BACKWARD * 
, NO * POINTER * 
.*.. X*(ATTNBKPT) FOR ♦. 

♦ NEXT ATLCB ♦ 

♦ ♦ 
***************** 



. RELATIVE ATLCB IS HIGHER IN ATLCB 
HIERARCHY THAN THE SPECIFIED ATLCB 

♦♦♦♦*E3********** 



*****E4* ********* 



SET COUNT REG 

* TO ZERO. PICK * 

* UP RELATIVE * 

* ATLCB TO START * 

* CCU NT * 
***************** 



♦INCREMENT COUNT* 
.* BY ONE AND * 

* REFER TO NEXT * 

* ATLCB * 

******♦*♦*♦**♦*♦* 



*****C5*********4 



***************** 



. * IS THIS * . 

. X*.THE SPECIFIED.* 

*. ATLCB .♦ 



tt»**E5*t******** 

* * 

* MAKE COUNT * 

* A NEGATI VE * 

* VALUE * 

* * 
♦*♦*♦*♦**♦♦****** 



,* DIRECTION *• POS 
. NEGATIVE OR .* . . . . 
♦.POSITIVE .* 



♦♦♦♦*F2* ********* 

* START * 
♦WITH SPECIFIED * 

X* ATLCB TO * 

*DE TE RMI NE COUNT* 

* * 
***************** 

**** 

* * . 

* G2 *.X. 



.* DOES *. 
.♦THIS ATLCB 
ATTNFWPT 
♦.FIELD = 0. 



F4 *. 

.* DOES *. 
ATTNFWPT 
POINT TO 

.SPECIFIED. 
*. ATLCB.* 



.•IS THE *. 

.* DIRECTION *. 

PARAMETER 

♦ .POSITIVE .♦ 



* START * 
♦WITH SPECIFIED * 

* ATLCB TO * 

* DETERMINE COUNT* 

* * 
***************** 



.♦DOES ATLCB < 
.POINT TO THE 
*. GTMCB . < 



♦♦♦♦*G3* ********* 

* LOAD BACKWARD * 
, NO * POINTER * 
,*. X*(ATTNBKPT) FOR *. 

* NEXT ATLCB * 

* * 
***************** 



*«**»G4* ********* 



***************** 



*****G5**** 



****** 



* DECREMENT * 

* Ol RECTI ON * 

* PARAMETER BY * 

* ONE * 
***************** 



* ♦♦♦♦HI ********** 

* LOAD FORWARO * 

* POINTER * 
*< ATTNFWPT) FOR * 
» NEXT ATLCB ♦ 

* * 
***************** 



*. ATTNFWPT ZERO.*. 



.•IS COUNT EO*. YES 
► . OR GT .*.... 
♦ .DIRECTION.* 



♦ ♦♦♦ 

* * 
, X* C2 * 

* * 

♦ *♦* 



,*IS COUNT EO*. YES 
OR LT .*.... 

♦ .DIRECTION.* 



♦ ADD COUNT TO ♦ 

♦ THE DIRECTION ♦ 

♦ PARAMETER ♦ 

♦ ♦ 
it* ************** 



MP20 X 

*****J3* ********* 

♦DATA SAVE * 

*_*_*_♦-♦_*-*-*-* 

. ..X* SAVE * 

* ATTENTION * 

* INFORMATION * 
***************** 



**** 
. * * 
..X* C2 * 



***** 
*F J * 
* Al* 



♦♦•♦*K1********** 



***************** 
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Chart FJ. MPATL Subroutine (continued) 



***** 

♦FJ * 
* Al* 



.* DOES *. 
.* SPECIFIED *. NO 
► . ATLCB POINT .*... 
*.TO GTMCB .* 



. * DOES 
. ATTNFWPT 
*. FIELD = C 



MP31 

*****A4*** ******* 

* MOVE * 

* ATTNFWPT TO * 
. ..X* NEXT HIGHER * 

* ATLCB. ATTNBKPT* 

* TO GTMCB * 
***************** 



»* DOES *. YES 
. ATTNFWPT .*.... 
♦ .FIELD = 0.* 



*****B2* ********* 

* * 

* SET GTMLATBL * 
.X*FIELD IN GTMCB * 

* TO ZERO * 

* * 
***************** 



*****B3********** 

* MOVE ATTNFWPT * 
*TO NEXT HIGHER * 
♦ATLCB. ATTNBKPT* 

* TO NEXT LOWER * 

* ATLCB * 
***************** 



*»***C1 ********** 

* PLACE * 

* GTMCB ADDRESS * 

* AND INDICATOR * 

* IN NEXT (LOWER)* 

* ATLCB * 
******* ********** 



SPECIFIED ATLCB 
GOES DELOW THt S 
ATLCB 



.* DIRECTION *. NEG 
>. POSITIVE OR .*.... 
♦.NEGATIVE .♦ 



* LOAD POSITIVE * 
<* VALUE OF *. 

* DIRECTION * 

* * 
***************** 



*****03 ********** 

* LOAD ATTNFWPT * 

* (NEXT LOWER * 
<* ATLCB) *. 

* DECREMENT * 
♦DIRECTION BY t * 
***************** 



MP41 

*****DS* ********* 

* MO VE * 

* ATTNFWPT PROM * 
. ..X* THIS ATLCB TO * 

♦SPECIFIED ATLCB* 

* (ATTNFWPT) * 
***************** 



*****E2*** ******* 

* * 

* INCREMENT * 
•X* DIRECTION BY * 

* ONE * 

* * 
***************** 



**+**E5 ********** 

* PLACE * 

* ADDRESS OF THIS* 

* ATLCB IN * 
♦SPECIFIED ATLCB* 

* (ATTNBKPT) * 
***************** 



.»....».X.X. ....... 

.MP3& X 

*****F1 ********** 

* LOAD ATTNBKPT * 

* INEXT HIGHER * 

* ATLCB) * 

* DECREMENT * 
•DIRECTION BY 1 * 
•••**********,*** 



*****F5********** 

* PLACE * 

* ADDRESS OF * 
♦SPECIFIED ATLCB* 

* IN THI S ATLCB * 

* (ATTNFWPT) * 
***************** 



MP43 

*****G4* ********* 

* PLACE * 

* ADDRESS OF * 

* SPECIFIED ATLCB*X. 

* IN GTMCB * 

* (GTMLATBL) * 
***************** 



.*I S ATTNFWPT*. 
.OF SPECIFIED .i 
*. ATLCB = 0.* 



MP37 X 

*****H1 ********** 

* MOVE ATTNBKPT * 

* AND ATTNBPID * 
♦FROM THIS ATLCB* 

* TO SPECIFIED * 

* ATLCB * 
***************** 



SPECIFIED 
ATLCB GOES 
ABOVE THIS 
ATLCB 



MP40 X 

*****H4*** ******* 

* SET LP * 
♦RESTART OPTION * 

* AND ENABLE GSP *X. 
♦GACB PER ACTIVEX 

* ATLCB * 
***************** 



*****H 5* ********* 

* PLACE ADDR * 

* OF SPECIFIED * 
.* ATLCB IN NEXT * 

* LOWER ATLCB * 

* (ATTNBKPT) * 
***************** 



*****jl********** 

* PLACE THIS * 

* ATLCB ADDRESS * 

* IN ATTNFWPT * 

* FIELD OF * 
♦SPECIFIED ATLCB* 
***************** 



***** J2»* ******** 

* PLACE ADDRESS * 

* OF SPECIFIED * 

* ATLCB IN * 

* ATTNFWPT OF * 

* HIGHER ATLCB * 
***************** 



MP46 X 

***** J 4** ******** 
*GCNTRL * 

*-*-*-*-*-*-*—*—* 

* LIGHT PFK * 
♦INDICATORS PER * 

* ACTIVE ATLCB * 
***************** 



*****K l********** 

* PLACE ADDRESS • 

* OF SPECIFIED * 

* ATLCB IN *. 
•ATTNBKPT FIELD * 

* OF THIS ATLCB * 
***************** 



. NO 

.*• MP39 

K 2 *. *****K3********** 

.* DOES *. * * 

.♦ATTNBPID OF*. YES * SET ATTNBPID * 

.X*. SPECIFIED .* X* FIELD OF THIS * 

ATLC8 = .* * ATLCB TO ZERO * 

* * 

***************** 



*.X«0t •.* 

*. .* 



OUTRTN 

X 
****« 4** ******* 

♦ * 

♦ RETURN * 

♦ * 
*************** 
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Chart GA. PLSTR Subroutine 



**** 

+ * 

* A3 * 



• •** 

* * 

* A* * 

* • 
***• 



****A1 ********* 

* * 
•1FFAGA06 ENTRY * 

* * 
*•**•****••**** 



AGATXT30 X 

»****A3 ********** 

* COMPUTE NEXT * 

* CHARACTER * 

* POSIT ION ON * 
•SCREEN AND SAVE* 

* * 
******•••••••*•** 



.» IS IT 

THE LAST 
*. STROKE 



AGAGDT10 

*****A5********** 
• AGAGD02S * 

*_*_*-*-*-*-*-*-* 



************* 
•BEAM IS POSITIONED . 
IO CENTER OF NEXT 
CHARACTER. 



*****B1 ****•••*** 

* * 

* * 
•INITIALIZATION * 

* * 

* * 
***************** 



***»*H3* ********* 

* SET * 

* CURRENT * 

* POSITION TO * 

* CENTER OF * 

* MATRIX * 
***************** 



*****B**** ******* 

* * 

* UPDATE * 
♦POINTER TO NEXT* 

* STROKE * 

* * 
***************** 



.* ARE *. 
.* ALL *. YES 

*. CHARACTERS .*.... 
*. DONE . * 



.* ARE *. N 

*. PARAMETERS .*. 
«. VALID .* 



****CZ********* 

* * 

.X* ERROR RETURN * 

* * 
*************** 



OBTAIN * 

STROKE FROM *X . 
STROKE TABLE * 

• 
••*••*••••••••*• 



•****DI ********** 

* SET * 
« SWITCHES AND * 

* FIELDS BASED ON* 

* PARAMETERS * 
» PASSED * 
***************** 



.* IS *. 

I IT A * 

BLANKED 
*. STROKE .« 



AGATXT90 

***»»D*********** 



••*•••*•***•***** 



IS IT *. 
AN OPOATE .*X.. 
CALL . * 



AGAOPT 30 



AGAOP135 



*_*-«_*-*-*-*-*-* 
X* SEARCH ON • 

* KEY OR * 

* 'CORRVAL" * 
***************** 



.AG At NO 10 



•****E3* ********* 

* * 

* * 

* INDICATE BEAM *. 

* ON • 

* • 
•*••••******•**** 



•CONVERT STROKES* 
.X*TO REAL VALUES,* 

• COMPUTE • 

♦ INCREMENTS * 
***************** 



.♦IS IT KEYED*. N 
► .OR CORRELATED.*. 
*. LEVEL 1 -* 



AGADAI 10 



¥ES .* IS THE *. 

......STROKE TABLE .*X. 

*. LOADED .* 



AGAGEN75 X 

*****F2*»******** 

* UPDATE * 

*-*-•-*—*-*—*—*—* 
....* GET * 

* TEMPORARY GOOA * 

* * 
********••*••*••* 



AGATXTSO X 

*****F4********** 
*SCAL ING KF* 

*-*—*-*-*-♦- *— *- ♦ 
* CONVERT PROM ♦ 
♦REAL TO INTEGERS 
•FOR ABS POSIT'N* 
*♦♦♦♦*♦••♦•*•♦•♦• 



*-•-♦-♦- 



-*—*—•—* 



PLACE *- 

* KEY IN KEY * 

* TABLE * 
***************** 



*****G1********** 
•LOAD ♦ 

*-*—*—*—•—*—•—*—• 

* STROKE ♦ 
♦TABLE REQUESTED* 

• ♦ 
•*••*•*•*•***•*•• 



****G3********* 

* * 
•AGAGDOZS ENTRY • 

• * 
••*•*••*•*•••*• 



*****G«********** 
•AGAGD025 * 

*—*-*—*—*—*—*—*—* 

* * 

* GENERATE DATA * 

* * 
****♦**•♦**•••••• 



.AG AC OHIO 

**»**G5********** 

• UPDATE * 
•-•-•-•-•-•-•-•-• 

..X* VRITE • 

• OUT TEMPORARY * 

• GOOA • 
*****•♦**••*•*••• 



AGAGEM2S X 

4,4 ***H I*** ******* 

• • 

• SET UP * 
•POINTER TO TEXT* 

• ARRAY • 

• * 
***••••*•*•••**•• 



**** 

* * 

* A« • 

* • 
• •*• 



.* IS *- YES 
*. SCISSORING .*.... 
*. REQUESTED.* 



*****H5*********« 

* * 

* UPDATE KEY * 

* IN * 

* KEY TABLE * 

* * 
****•*•••••**•••* 



*****J !•••••••••• 

* * 

* ACCESS STROKE • 
•TABLE AND FIRST* 

* STROKE * 

* * 
««*************•• 



»**»»J2*«****»»*» 
•SCALING KF* 

*-*_*_*-*-*-*-*-* 
SCALE * 

COORDINATES • 
* * 

**•••••*••••••••• 



■ X* 



***«*J3»******»** 

• SET GDSXLAST. * 

* GDSYLAST . * 

• GDSXCURR AND • 
•GDSYCURR FIELDS* 

* * 
*•••**•••••••*••• 



*****.!«♦•***••*•• 
•SCISSORING KG* 

*-*—*-•-•—*—*-•-* 

• * 

• SCISSOR INPUT • 

• DATA • 
*•••••••••••••••• 



AGARETIO 

X 
****J5********* 

• * 

• RETURN * 

• * 
*••••••••*••••* 



AGAGEMZ9 .*. 

KI *. 

.•ARE X- *. 
,-* AND Y- *. YES 

*. COORDINATES .*.... 
*. PASSEO .* 



*****K2******»*** 
•AGAGD025 * 

*—*—*—•—•—•—*-•-• 

• GENERATE * 

• BEAM POSITION • 

• * 
•••••••••••••*••• 



-»_*_*-*_*-*_*-* 

• GENERATE •. 

• AND STORE * 

• ELEMENT • 
••****•***••****• 



•••*K4********* 



••••••*•••••••• 



*••• 

> • 

► A3 • 
. * 

*•*• 
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Chart HA. ORGEN Subroutine 



***• 

» A3 * 
» * 

**** 



****ai ********* 

* * 
•IFFAGA07 entry * 

* * 
*••*••*******•* 



*****B1 ********** 

* * 

* * 

♦INITIALIZATION * 

* * 

* * 
***•••**•*•*•*•** 



. * ARE * . 
• • REQUIRE!) *. NO 
*. PARAMETERS .*.,. 
*. VALID .* 



IS THIS 


*. NO 


AN UPDATE 


.*.. 


CALL 




*. .* 




*• .* 




* YES 





•***C2********* 

• * 
.X* ERROR RETURN * 

* * 
*************** 



ORCooazo x 

*****B3********** 
*ORGGTRUl HB* 

*—*—*—*-*_*—*—*-* 

* SET UP * 

* INCLUDED OMIT * 

* STRUCTURE * 
***************** 



GRGO0B40 X 

•****C3********** 

* DETAIN * 

* OACB AOOR, * 

* COUNT, ARRAY * 

* A DDR, LOGICAL • 

* A0OR=0 * 
***************** 



***** 
*HB * 
* Al* 



*****B*********** 
♦BUFFER MGT KC* 

*—*-*-*-*—*-*—*—* 

* ASSIGN • 
•BUFFER FOR GOO A* 

* * 
***************** 



•****C«********** 

* • 

* PLACE BUFFER * 
.* AOOR IN * 

♦TRANSFER OROER * 

* IN GOOA * 
***************** 



DI *. *****D2********** 

-* *- *OATA STORE KJ* 

.* IS THERE *. NO *_*-*_*_*_*_*_«_* 

*. ANY DATA IN .*..». ....X* OBTAIN BUFFER * 

*. THE GOS .* *ANO ADD GDS TO * 

*• •* * FLO* CTRL * 

*• .* •••*••••*******«* 

* YES 

^X. ..................... ...^ 

X 
ORGOOOSO .*. 

EI *. 

.* ARE *. ****E2********* 

.* OPTIONAL *. NO * * 

*. PARAMETERS .*.... ....X* ERROR RETURN * 

•.SPECIFIED.* * • 

• •VALID.* *************** 

»• .* 

* YES 



IS THIS *. NO 
AN UPDATE .*... 
. CALL .* 



ORG00700 

*****F2********** 
*ORGGTRUl HB* 
*-*-*—* -*-*-*—*—* 



• INCLUDE/OMIT * 

* STRUCTURE * 
•***•*****•*****• 



.«. 
03 *. 

.* ARE *. •*** 

.* THERE AT *. YES * * 
♦.LEAST * BYTES. *....X* G3 * 

*. LEFT IN .* * * 

*.GOOA .* *•*• 



*. 



* NO 



• E3 *.X. 

• * . 
**** X 

.*. 

E3 *. *****£*•***•*•*** 

-* *. *FREEMAIN * 

.* IS *. NO *-*-*_*_*_*_*_*_* 

♦.THERE ANOTHER.*. .......X* FREE STORAGE *. 

*. GOOA .* * ACQUIRED FOR * 

*. •* * TEMPORARY GDOAS* 

*. .* ***************** 

* YES 



*****F3* ********* 

* • 

* RESET * 

* MODE FOR NEXT * 

* GOOA * 

* * 
•••*••*••******•* 



****E5********* 

• * 
. X* ERROR RETURN * 

* * 
*••**••••*****• 



ORGOOSOO X 

*****G I********** 
*KEY TBL MGT KE* 
*—*—*-.*—*—*-*—*—* 

* SEARCH ON * 
•KEY^CORRELAT ION* 

• VALUE • 
A**************** 



*****G2********** 

* COMPUTE * 

* STORAGE * 

* REQUIRED FOR * 
•TEMPORARY GDOAS* 

* * 
*•**•*••***•**•*• 



* G3 *.X. 

* * . 
»*(** 

ORG00900 X 

•**«*G3********** 

* * 
•MOVE DATA FROM * 

* ARRAY TO GOOA • 

* UNTIL FULL * 

* * 
***«f ************* 



.X. 



HAS ALL *. NO 
OAT A BEEN .*... 
MOVED . * 



.ORGOllOO 

•••••H«********** 
•ORGSTMD1 HB* 

X *_*_*_*_*_*_*_*_* E xiT 1 

....X* DETERMINE *....... 

* LAST SET MODE * 

• OROER * 
•••*****••*****•• 

.EXIT 2 



*****HS* *•••••*** 

* * 

* SAVE * 
, X* THIS SET MODE * 

* OROER * 

* * 
***************** 



ORGO06O0 X 

*****Jl ********** 

•UPDATE * 

•—»— *-* * *_*_*_* 

•' OBTAIN • 

•TEMPORARY GDOAS* 
• • 

•*****••*****•*•* 



J3 *. 






•****J*********** 


*. 






• BREAK DATA * 


IS THIS 


*. 


YES 


* ON BOUNDARY, * 


IN UPDATE 




*.... 


* FILL OUT KITH * 




* 




• GN0P2. OBTAIN • 


. .* 






* NEXT GOOA * 






X 


*•**•*•*•••****•• 


* NO 




• ••*• 








*HB • 








• AI* 








• • 


X 






• 


•••• 
* • 



***4>*K3** ******** 

• SET BUFFER * 

• START FROM * 

• ORIGINAL OACB * 

• FOR THE FIRST * 

• GOOA * 
••••••••••••••••* 
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Chart HB. ORGEN Subroutine (continued) 



***** 

*HB * 
* Al* 



ORG02300 .*. 



*****A2*** ******* 



.* IS *. NO * SET UP GTRUS * 

.THIS THE LAST.* X*TO CHAIN GDOAS * 

*. GDQA .* * IN BUFFER * 

*. .* * * 

*. .* ***************** 



****A3*** ****** 
* * 

♦ORGSTKOl ENTRY * 

*************** 



****A5********* 

* * 
♦ORGGTRUl ENTRY * 

* * 
*************** 



* ai *.x. 



*****ai ********** 

♦ORGSTMD1 * 

*_*_*_*_*-*-*-*-♦ 

H* SEARCH *• 

* FOR SET MODE * 

* ORDER * 
***************** 

.EXIT 1 



.* DOES *. 
NO .*THIS ORDER *. 
...*. CONTAIN AN .* 
*. ADDRESS .* 



.X* Fl * 

* * 
**** 



ORG03000 



ORG03800 



.* IS *. YES 
X"FFFF" .*.... 
♦.SPECIFIED.* 



* RESOLVE THE * 
•ADDRESS IN GDOA*. 

* AND PLACE IN * 

* ORDER * 
***•**••**•*•**•* 



*****E2** ******** 

* COMPUTE * 
♦PHYSICAL BUFFER* 
*AODR FROM KEY. * 
♦PLACE IN ORDER * 

* * 
***************** 



IS THIS 
SET MODE 
ORDER . 



ORGSTM03 

*****B4 ********** 

* * 
, YES * OETERMINE * 
, * X*LENGTH OF ORDER* 

* AND PLACE IN A * 

* REGISTER * 
***************** 

ItXIT 1 



**•* 



*C3********** 

* UPDATE * 
♦POINTER TO NEXT* 

* ORDER AND THE * 
♦LENGTH LEFT TO ♦ 

* SEARCH * 
***************** 



0RGSTMD2 .♦. 



************ 



D3 

.* is *. ****04********* 

YES .* THERE * . NO * * 

...*. ANOTHER ORDER.* X* RETURN < 

*. IN THIS .* EXIT 
*.GDOA .* 



****E3* ******** 

* * 
. X* ERROR RETURN * 

* * 
*************** 



*****DS* ********* 

* S£T * 

* UP THE * 

* APPROPRIATE * 

* INCLUDE OR OMIT* 

* ORDER * 
***************** 



*****C5* *******♦♦ 
♦DATA STORE KJ* 

*_*_*-*-*-*-*-*-* 

♦ STURE ORDER. IN * 

* GDOA WI TH * 
♦UNRESOLVED ADDR* 
***************** 



****D5* ******♦♦ 
* 4 

» RETURN * 

► * 

*************** 



*♦** 






* ♦ 






* Fl * 






* * 






***» 


X 




ORG0Z7O0 


.* 




Fl 


♦ . 


• * 




♦ • 


.* 


IS 




*. IT 


THE 


LAST 


*. 


GDOA 


*• 




.♦ 




*. 


♦ 




* 


YES 



ORG04400 



♦.IT AN UPDATE 



. NO •* "ILL *. NO 

.*.... ....X*. IT FIT IN ONE.*... 

*. GDOA .* 



♦RESET GDSAOACB ♦ 
.X* FIELD TO THE ♦. 

♦ ORIGINAL OACB ♦ 

* * 
***************** 



* UPDATE FIELOS * 
.X* IN OACB, MOVE *X. 

* DATA TO * 

* ORIGINAL GDOA * 
*♦♦*♦♦***♦♦****** 



*-*—*-*-*—*-*-*-* 

* RESOLVE * 

* INCLUDE/OMIT * 

* ADDRESS • 
***************** 



*****H2*** ******* 

* UPDATE * 
♦OACB. MOVE DATA* 

* TO ORIGINAL * 

* GDOA, RESET * 

* GDSAOACB * 
****♦♦♦♦♦♦**♦♦♦♦* 

**** . 

* * . 

* J2 *.X. 



ORG05200 



*-*-*-*-*-*-*-*-* 

* USE GDOA * 

* OVERFLOW * 

* FUNCTION * 
***************** 



***** j i ********** 
♦UPDATE * 

♦—*—*—*—*—*—*—*-* 

* WRITE * 
♦OUT UPDATE DATA* 

* * 
♦*•*****•***♦♦♦*♦ 

♦ ♦♦* 

* ♦ . 

* K 1 *.X. 

* * . 
**** 

ORG04500 X 

****♦« !***•***♦♦♦ 

* * 

* SET GDSGRMOO * 

* FIELD TO *. 

* CONTROL MODE * 

* • 
***************** 



***** J2********** 
♦FREEMAIN ♦ 

♦-♦-♦-♦-*-*-*-*-♦ 
•FREE TEMPORARY *. 

• OACB AND GDOA * 

* STORAGE * 
********♦♦♦♦♦♦♦♦♦ 



ORG04600 

****K2*++ ****** 

* * 
...X* RETURN * 

* * 
*************** 



*-*-*-*-*-*-*-*-* 

* ADD * 

* KEY TO KEY * 

* TABLE * 
***************** 



ANOTHER 
TEMPORARY 
.GDOA USED. 



ORG0 540 X 

*****K 4** ******** 

* MOVE LAST * 

* DATA TO * 
♦ORIGINAL GDOA, ♦ 

♦ UPDATE OACB ♦ 

♦ FIELDS * 
***************** 
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Chart J A. CNVRT Subroutine 



**** A 1 ********* 

• • 
•IFFAGA08 ENTRY * 

* * 
*************** 



*****B1* ********* 

* * 

* * 

* INITIALIZATION * 

* * 

* * 
***************** 



* ARE 

PARAMETERS 
► . VALID . 



****C2*** ****** 

* 4 
.X* ERROR RETURN « 

* 4 
*************** 



*****D3* ********* 



***************** 



.X*.IT REAL MODE .* . 



**** . 

* * . 

* E2 *.X. 



*-*-*-*-*-*-*-*-* 
. X*CONVERT RASTER * 
* UNITS TO * 

♦FLOATING POINT * 
***************** 



**•**£ 1 ********** 

* FORCE * 

* ABSOLUTE MODE * 

* AND CREATE * 

* INPUT ARRAY FOR* 

* SCALING * 
***************** 



*****E3********** 



***************** 



* CONVERT TO * 

* USER'S UNITS * 

* AND STORE IN * 

* WORK AREA * 

***************** 

. **** 



*****E 5* ********* 

* * 

* CONVERT TO * 

* USER'S UNI TS * 
+ AND STORE IN * 

* WORK AREA * 
***************** 

**** 



CVT010 X 

*****Fl ********** 
♦SCALING KF* 

*-*-*-*-*-*-*-*-* 

* CONVERT * 
*TO RASTER UNITS* 

* * 
***************** 



*.IT REAL MODE .*. 



**** 

*****F *********** 
♦CVTFLOAT * 

*-*-*-*-*-*-*-*-* 
.X*CONVERT RASTER * 
* UNITS TO * 

♦FLOATING POINT * 
***************** 



*****G1 ********** 

* RESTORE * 
♦ORIGINAL INPUT * 

* DATA MODE * 

* (GDSDATMD) * 

* * 
***************** 



* CONVERT TO * 

* USER'S UNITS * 

* AND STORE IN * 

* WORK AREA * 
***************** 



*****G4**** ****** 

* * 

* CONVERT TO * 

* USER'S UNITS * 

* AND STORE IN * 

* WORK AREA * 
***************** 



CVT0I1 X 

*****H1********** 

* PLACE * 

* CONVERTED * 

* VALUES IN * 

* USER'S * 

* VARIABLES * 
***************** 



****H3********* 

* * 
♦CVTFLOAT ENTRY * 

* 4 
*************** 



CVT013 

X 
****J 1********* 

• 4 

* RETURN 4 
+ 4 

*************** 



*****J3********** 

* * 

* SET UP * 

* CONVERSION *. 

* CONSTANT * 

* * 
***************** 



.* IS THE 

. NUMBER 

♦ .NEGATIVE 



******* 

* * 
♦MOVE MAGNITUDE * 

• X* IN, NORMALIZE * 

* NUMBER AND * 

* STORE * 
***************** 



CVTFLT2 X 

♦♦♦♦*K A* ********* 

♦ SET * 

♦ SIGN BIT, * 

♦ OBTAIN *. 

♦ MAGNITUDE OF + 

♦ NUMBER * 
***************** 



****K5* ******< 

I; 

► RETURN 

> 
************** 
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Chart KA. Flow Control Management Routine 



****A1 ********* 

* * 
♦IFFAHA01 ENTRY * 

• * 
*************** 



I LC0001O 

*****A4*** ******* 
♦ASGNBFR * 

*—*—*-*—*—*—*-*—* 

* ASSIGN OUFFER * 

* FOB FLOW CTRL * 

* STRUCTURE * 
***************** 



CODE . FUNCTION 



4 IS THE 

INPUT CODE 
4. VALID . 



. * IS *. NO 

BUFFER .*... 

• .AVAILABLE.* 



ERR I 

****B5* ******** 

* * 
. ..X* ERROR RETURN 4 

* * 
*************** 



***+CI********* 

» * 

► RETURN 4 

► 4 
*************** 



*-*—*—*—*-*-*—*—* 
♦OBTAIN STORAGE * 

* FOR FLOW CTRL * 

♦ TABLE AND DECB * 
***************** 



.* IS *. NO 

STORAGE .*... 

♦.AVAILABLE.* 



ERRZ 

*****OS********** 
♦RLSEBFR * 

*-*-*—*-*-*—*-*-* 
. ..X* RELEASE * 

•BUFFER ASSIGNED* 
* * 

***************** 



FLCC0040 



► IS IT 
THE SYSTEM 

► . GDS 



FLC00045 

*****E3* ********* 

* SET * 
•UP BUFFER ADDR * 

...X* AND ADDR FOR * 
♦SYSTEM GOS GTRU4 

♦ ORDER ♦ 
***************** 



FLCOOO20 X 

*♦•**£**•* ******* 

* BUILD * 

* FLO* CONTROL • 

* I ABLE AND DECB.* 
•STORE DECB ADDR* 

* IN GTMC8 • 
*••**••*•*****•** 



****E5********* 

* * 

* ERROR RETURN 4 

* * 
*************** 



ERR1 

****F1**** *•**>* 

* * 

* ERROR RETURN 4 

* 4 
*************** 



.* ANY *. 
3 .* FREE FLO* ». 
.♦.CTRL ENTRIES . 
*.IN TABLE .* 



*-*-*-*-*-*-*-*-* 

* WRITE INITIAL * 

* GRAPHIC ORDERS * 

* TO BUFFER * 
**••**••****•***• 



*****GZ*********4 

* UPDATE TABLE * 
« POINTERS. SET * 

* UP GTRU ORDERS * 

* FOR THE FLOW * 

* CONTROL ENTRY • 
***************** 



*****G4********** 

* * 

* PLACE FLOW * 

* CONTROL TABLE * 

* ADDRESS IN * 

* GTMCB * 
•**•****•**•***•* 

**** 
4KA * 

* H4 *.X. 



*-*-*—*—*—*—*—*-♦ 

* WRITE * 

* OUT FLOW CTRL * 

* ENTRY * 
**•***•**• ******* 



****H4********* 
► 4 

♦ RETURN 4 

4 4 

*************** 



.X.. ...... 

FIX 00 042 X 

*****J2********** 

* STORE FLOW • 
*CTRL ENTRY BFR * 

* AOOR AND RETURN* 
♦ADDR FOR OVFLO * 

* IN GDSCB * 
********•***•••** 



*****J3**»******* 
•GWRITE * 

*_*_*_*_*-*_*-*-* 
..X* WRITE DATA • 

•TO TRANSFER TO • 
• THIS GDS * 

♦****»*4**»****»* 
**** . 



*«***K3* •♦****♦*• 

•GWRITE • 

*-*-*-*-*-*-*—•-* 

K* GTRU TO *. 

* RETURN CTRL • 

* PROPERLY * 
***************** 



• ••• 

* * 
. .X* H4 * 

* * 

• *•• 



*••• 
h • 

4 J3 * 
♦ • 

**** 
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Chart KB. Flow Control Management Routine (continued) 



***** 

♦KB * 
* Al* 

* * 



CODE 3 

FLCO005O 



.* DO TABLE *. N 
• AND ENTRY .*■ 
*. EXIST .* 



***** 

*KA * 

* H4* 

* * 



***** 
•KB • 
* A3* 



FLCO0100 X 

***** A3* ********* 
*GCNTRL * 

*-*-*-*-*-*-*-*_* 

* STOP * 

* REGENERATION * 

* * 
***************** 



FCC00060 X 

*****81********** 

* REMOVE ENTRY * 

* FROM IN-USE * 

* LIST. LOCATE * 
•ACTUAL ENTRY IN* 

* FCT * 
***************** 



*-*-*-•-*-•-*-*-* 

* FREE STORAGE * 

* FOR TABLE AND * 

* DECB * 
***************** 



970 .*. FLC 00090 

CI *. *****C2********** 

.* *. • SET UP * 

* IS ENTRY *. YES * AODR FOR GTRU * 

LAST ONE ON .*.... ....X* BACK TO FLOW * 

*. IN-USE •* * CONTROL * 

•-LIST .* * BEGINNING * 

*. .* ***************** 
* NO 



•****C3* ********* 

* CLEAR * 

* THE GTHFCTBL * 

* AND GTNOECB1 * 

* FIELDS IN THE * 

* GTMCB * 
***************** 



FLC000B0 X 

•****D1********** 

* MOVE UP * 

* ENTRIES IN * 

* TABLE. UPDATE * 

* FREE POINTER * 

* * 
***************** 



***** 
•KA * 
* H** 



4****E1********** 
•GWRITE * 

*-*-*-*-*—*-*-*_* 

* WRITE ADDR TO * 

* BUFFER TO * 

* REMOVE ENTRY * 
***************** 



*****F1********** 

* CLEAR * 

* THE GDSOVDAT * 

* AND GDSFCBUF * 

* FIELDS IN THE * 

* GDSCB * 
***************** 



***** 
*KA * 
* H«* 
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Chart KC. Buffer Management Routine 



****A1 ********* 

* * 
•IFFAHA02 ENTRY * 

* * 
*************** 



CODE 2 

*****A4* ********* 
♦ASGNBFR * 

*_*-*-*-*-*-*-*-* 

* OBTAIN * 

* BUFFER * 

* SECTION(S) * 
***************** 



Input code 



.CODE. ACTION . TO . 

I*i**lASSIGN"l28-BYTE*BUFFER**.KCDl. 

K. 2 .ASSIGN 256-BYTE BUFFER .KCA4. 

. 3 .ASSIGN ADDITIONAL BUFFER. KCH2. 

. 4 .RELEASE 128-BYTE BUFFER .KDAI. 

. 5 .RELEASE BUFFER FOR A GDS.KDA2. 

. 6 .RELEASE PART OF BUFFER .KDA4. 

. 7 .RELEASE ALL BUFFER .KDD4. 



4c***B5********* 

* * 
, X* ERROR RETURN * 

* * 
*************** 



****C1 ********* 

* * 

* ERROR RETURN * 

* 4 
*************** 



♦****C4*** ******* 

* SAVE * 
♦BUFFER ADDR AND* 
♦PLACE BCT ENTRY* 

* NUMBER IN * 

* GDSCB * 
***************** 



Dl *. 

. * DOES * 

BCT HAVE 

128-BYTE 

. BUFFER 

♦.ENTRY.* 

*. .* 



BUF00020 

♦****D2* ********* 

♦ASGNBFR * 

*-*—♦-♦-♦—*-*-*—* 

...X* * 

* OBTAIN BUFFER * 

* * 
***************** 



.* IS ID * 

♦ .CODE READILY 
*. FOUND .* 



*****E I ********** 
SAVE * 

♦BUFFER ADDRESS.* 
♦PLACE BCT ENTRY* 
♦NUMBER IN GDSCB* 

* * 
***************** 

**** . 

* * . 

* Fl *.X. 



****E3********* 

* * 
.X* ERROR RETURN * 

♦ * 
*************** 



*****E4*** ******* 
•BUF00280 KD* 
*-♦-♦-♦-*-*-*-*-* 

* * 

* OBTAIN UNUSED * 

* CODE * 
*♦♦♦♦♦♦♦♦******** 



.* IS ID *. YES 

♦.CODE READILY .*. 
♦. FOUND .♦ 



*****F2********** 

♦ FILL IN BCT * 

♦ ENTRY. SAVE ♦ 

♦ BUFFER ADDRt ♦ 

♦ SET GDSBCTEL * 

♦ FIELD * 
***************** 



BUFOOIOO X 

*****F4* ********* 
>*♦* * STORE * 

* *IOENTlFICATION * 
F4 *....X* CODE IN BCT * 

* *ENTRY FOR THIS * 
**** * SECTION * 

***************** 



*****G1********** 
♦BUF00280 KD* 

*-*-•-*-*-*-*-♦-♦ 

* * 

* OBTAIN UNUSED * 

* CODE * 
***************** 



.* IS IT *. 
.* MORE THAN 
. ONE BUFFER 
*. SECTION . 



*****GS* ********* 

* * 

* COMPLETE BCT * 
X* ENTRIES FOR * 

* EACH SECTION * 

* * 
***************** 



*****H I ********** 

* STORE * 
•IDENTIFICATION * 

* CODE IN BCT * 

* ENTRY AND IN * 

* GDSCB ♦ 
***************** 

**** . 

* * . 

* JI *.X. 

* * • 
*•** . 

BUF00067 X 

*****J l********** 

* * 

* PLACE BUFFER * 

* ADDRESS IN ♦ 

* REGISTER 1 ♦ 

* * 
***************** 



.* *. ****H3********* 

.* DOES BCT *. YES * * 

♦ .SHOH 128-BYTE. ♦... X* ERROR RETURN ♦ 

♦ . BFR .* X ♦ * 

*. .* . ••*♦♦**•*•••*** 

*. .* 

* NO ***♦ 

. ♦ ♦ 

. ♦ H3 ♦ 

. * * 

. *♦♦♦ 



*♦♦** J2********** 

♦ ASGNBFR * 
*-*-*-♦-♦-♦-*-♦-♦ 

♦ OBTAIN ♦ 

♦ ADDITIONAL ♦ 

♦ BUFFER * 
***************** 



BUFOOllS X 

♦♦♦♦*H4********** 



***************** 

**** 

* * 
..X* JI * 

• * 
**** 



****K I********* 

* * 

* RETURN * 

* * 
*************** 



♦ DETERMINE * 
<* NUMBER OF * 

♦ SECTIONS OF ♦ 

♦ BUFFER ♦ 
*♦♦♦♦*♦**♦«♦*••** 
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Chart KD. Buffer Management Routine (continued) 



***** 

*KD * 
* Al* 



***** 
*K0 * 
* A2* 



***** 
*KD * 

* A4* 



* LOCATE BCT * 
♦ENTRY FOR THIS * 

* SUBSECTION * 

* * 
***************** 



.* WAS * 
.* BUFFER 
ALREADY 
♦ .RELEASED 



****A3********* 

* * 

* return i 

* * 
*************** 



• *IS IT LAST *. YES 
►. BFH SECTION .*.... 
♦ .OBTAINED .* 



****A5****« 
► RETURN 

*********** 



*****B | ********** 
.* * 

* SET * 

* APPROPR I ATE * 

* BYTE TO X'80" * 

* * 
***************** 



*****BZ*** ******* 

* * 
♦REFERENCE FIRST* 

* BCT ENTRY IN * 

* CHAIN FOR THI S * 

* GDS * 
***************** 



*****B4 ********** 

* * 

* FIND FIRST * 
♦BUFFER SECTION * 

* TO BE RELEASED ♦ 

* * 
***************** 



.* ARE *. 
* BOTH *. NO 

SUBSECTIONS .*... 
*. UNUSED .* 



*****C2*** ******* 

* * 

* SET GDSBCTID * 

* AND GD SBC TEL * 
♦FIELDS TO ZERO ♦ 

* * 
***************** 



**** 

* * 

* D2 * 

* * 
**** 



***** 
*KD * 
* 04* 



* SET * 

* BCT ENTRY TO * 

* ZERO * 

* * 
***************** 



* 02 *.X. 

* * .X 

**** 
JUF00210 X 

*****D2* ********* 
*RLSEBFR * 

*-*-*-*-*-*-*-*-* 



***************** 



CODE 7 X 

*****D4 ********** 
♦RLSEBFR * 

*-*-*-*-*-*-*-*-* 

* * 

* RELEASE ALL * 

* BUFFER * 
***************** 



*****E1 ********** 
♦RLSEBFR * 

*-*-*-*-*-*_*_*_* 

* RELEASE * 
♦BUFFER SECTION ♦ 

♦ * 
**>* ******* ******* 



*****E2*** ******* 

* PICK * 

* UP POINTER TO * 
*NEXT BCT ENTRY.* 
*SET THIS ENTRY * 

* TO ZERO * 
***************** 



*****E4** ******** 

* * 

* SET * 

* ENTIRE BCT TO * 

* ZEROS * 

* * 
***************** 



* SET GDSBCTID * 

* AND GDSBCTEL * 
♦FIELDS TO ZERO * 

* * 
***************** 



.* ANY MORE 
► . BUFFER TO 
*. RELEASE . 



*****F4********** 

* * 

* SET GOSBCTIO * 

* AND GDSBCTEL * 
♦FIELDS TO ZERO * 

* * 
***************** 



BUF00070 

X 
****G 1 ********* 

* * 

* RETURN * 

* * 
*************** 



****G2*** ****** 

► * 

► RETURN * 
* * 

*************** 



BUF00270 



ARE THERE 
ANY MORE 
. GDSCBS . 



****H1 ********* 

• * 
♦BUF00280 ENTRY * 

* • 
*************** 



****H4********* 
► * 

* RETURN * 

* * 
*************** 



***** J 1*** ******* 

* OBTAIN * 

* BCT ADDRESS, * 
♦SET UP CONTROL * 

* FOR SEARCHING * 

* BCT * 
***************** 



***** J2 ********** 

* UPDATE * 

* TO NEXT * 
. * POSSIBLE * 

♦IDENTIFICATION * 

* CODE * 
***************** 



***** K I********** 

* * 

* SCAN * 
•ENTRIES IN BCT *. 

* FOR CODE * 

* * 
***************** 



.* IS THIS *. 

,X*.CODE FOUND IN. 

*. BCT .* 



*****K3 ********** 

* * 

* PLACE * 
K* CODE IN *. 

* REGISTER 1 * 

* * 
***************** 



****K4********* 
» * 

» RETURN ♦ 

► * 

*************** 
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Chart KE. Key Table Management Routine 



•***A1 ********* 

• • 
•IFFAHA03 ENTRY • 

• • 
a************** 



t VALID *. 

Input code - 

► . PASSED .* 



. function 
" *. ' add" key* to" table 

I SEARCH FOR KEY 
*. RESET KEY TABLE 
*. DELETE KEY TABLE 



. TO 

' "keei 

! KEE3 

I KEAS 

! KEA4 

I KEE3 



CODE 4 

***************** 

* OBTAIN * 

* KEY TABLE * 
•ADDRESS. RESET * 
•GDSKEYTB FIELD * 

* TO ZERO * 
***************** 



KEYEHH3 X 

*****B4********** 
•FREEMAIN * 

*-*-*-*-*-*-*-*-* 
..X* RELEASE *1 

. • UNUSED KEY • 

* TABLE STORAGE * 
***************** 



NO . 


* 


IS ENTIRE 


* 


• •>*• 




GDS TO BE 






*. RESET 


* 






*. .* 




X 




*. .* 




**** 




* YES 




* 








E3 * 








* 








**** 









*****BS********** 

* RESET FREE * 

* POINTER TO * 
.♦FIRST ENTRY IN * 

* KEY TABLE * 

* * 
***************** 



****CI ********* 

• • 

• ERROR RETURN * 

• * 
*•••••••••••••• 



****C4********* 
t * 

* RETURN * 

* « 
*************** 



,* HAS KEY 
. TABLE BEEN 
+ . BUILT . 



KEYELE2 

*****E2********** 

* LOCATE LAST * 

* BLOCK OF * 
...X* STORAGE USED * 

* FOR KEY TABLE * 

* • 
••***••**•••****• 



CODE 2 .*• 

AND E3 •• 

CODE 5 .* •• 

.• HAS A KEY *. NO 
*. TABLE BEEN .*... 
*. BUILT .* 
*. •* 

*. . * 
* YES 
• *** . 

• * 

* F3 *.X. 



****E4********* 

• 4 
.X* ERROR RETURN * 

* * 
*************** 



• GET *> 
•STORAGE FOR KEY* 

• TABLE * 
••****•*•*•***•** 



IS IT FULL 



.* IS THE *• NO 

•.SEARCH BASED .*... 
*.ON A KEY .* 



* SEARCH * 
•X*FOR CORRELATION* 

* VALUE * 

* * 
**•••••**••****** 



*****GI********** 

• • 

• INITIALIZE * 
•POINTERS IN KEY*. 

• TABLE. ADD TO • 

• CHAIN • 
•******••***••••• 



•****G2********** 

• • 

• LOCATE SPACE * 
FOR KEY AND * 

• INSERT KEY IN • 

• TABLE * 
••••*•••••••••••• 



.X* 



*****G3*« ******** 



•SEARCH FOR KEY * 



•*••*******••***• 



**** 

* * 

* F3 * 

* * 
***• 



KEYEHJ3A 

X 
****H2********* 

* * 

* RETURN • 

* 4 
***•••••••***•• 



*****H4********** 

* * 

* UPDATE * 
K* TO NEXT KEY *. 

* ENTRY * 

* * 
••••••*••*•**•*** 



. NO 



.* HAVE ALL *• 

.X*. ENTRIES BEEN .* 

*. SEARCHED .* 



*.IS IT CODE 3 •*• 



•****J4********** 

• * 

* PLACE ADDR OF * 
K* KEY < IN KEY * 

• TABLE 1 IN * 

* REGISTER 1 * 
***•*•**•*****••* 



****J5********* 

* * 

* ERROR RETURN * 

* * 
*****•*****•**• 



* RESET FREE * 
•POINTER TO THIS* 

* ENTRY IN KEY * 

* TABLE * 
*••••••*•*••**•*• 



•***K4********* 

* « 

* RETURN • 

* * 
***••••**•***** 
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Chart KF. Scaling Routine 



****A1 ********* 

* 4 
♦IFFAHA06 ENTRY 4 

* 4 
*************** 



****A5********* 

* * 
*IFFAHA15 ENTRY * 

* • 
*************** 



*****C1 ********** 

* * 

* COMPUTE * 
*SCA1_ ING FACTOR * 

* I SEE TABLE 6> * 

* * 
***************** 



* COMPUTE * 
,X*SCALING FACTOR *. 

* (SEE TABLE 61 * 

* * 
•**•*•***••**•*** 



*****C3** ******** 

* * 
♦COMPUTE SCALED * 

* INTEGER. * 

* ABSOLUTE * 

* X-COORDINATE * 
***************** 



SCAOOS 

*****B4********** 
♦COMPUTE SCALED * 

* INTEGER, * 
...X* INCREMENTAL * 

* X-COOROINATE * 

* * 
***************** 

**** 
. * • 

..X* F2 * 
• * 

• *•* 
FPIOOS 

****C4********* 

* * 

* ERROR RETURN *X. 

* * 
*************** 



*****B5********** 

* * 

* TEST RfcAL * 
*NUMBER LOCATED * 

* IN REGISTER 1 * 

* ♦ 
*♦♦*•*********•*• 



YES .* HILL 

....*. OVERFLOW 
*. OCCUR 



♦COMPUTE SCALED * 
K* REAL. I NCR * 

* X-COORDINATE * 

* * 
***************** 



*****D5* ♦♦♦♦♦*♦*• 

* CONVERT * 

* TO INTEGER * 

* NUMBER AND * 

* RETURN IN ♦ 

* REGISTER 1 ♦ 
***♦*******•**•*• 



*****E1 ********** 

* * 
♦COMPUTE SCALED * 
•REAL, ABSOLUTE * 

* X-COORDINATE * 

* * 
***************** 



*****E2********** 
*IFFAHA15 * 

*-*-*-*-♦-♦-*-*-* 

* CONVERT * 

* TO INTEGER * 

* * 
***************** 



*****£«****•***•* 

• * 
♦COMPUTE SCALED * 

♦ HEAL. ABSOLUTE * 

* Y-COORDINATE * 

* * 
♦♦♦♦**•*******•** 



FP1002 

X 
****E5********* 

* * 

* RETURN * 

* * 
*♦♦♦♦♦♦♦♦****•* 



*****F1 ********** 
♦IFFAHAIS * 

*-*—*-*-*-*-*-*-* 

* CONVERT * 

* TO INTEGER * 

* * 
***************** 



* F2 *.X. 

* * . 
*•** . 

SCA003 X 

*****F2********** 

* COMPUTE * 
♦ABSOLUTE VALUE, ♦ 

♦ STORE VALUES IN* 

♦ OUTPUT ARRAY ♦ 

♦ ♦ 
♦♦♦♦♦♦*********** 



*****F4********** 
♦IFFAHA15 * 

♦-♦^♦-*- *-*-*-*-* 

♦ CONVERT * 

* TO INTEGER * 

• * 
***************** 



* Gl *.X. 

* * -X 

**** 
SCA001 X 

*****G I ********** 

* COMPUTE * 

* INCREMENT, * 

* STORE VALUES IN* 

* OUTPUT ARRAY * 

* * 
***************** 



* G4 *.X. 

* * 
**•* . 

SCA007 X 

•****G4********** 

* COMPUTE * 

* INCREMENT. • 

* STORE VALUES IN*. 

* OUTPUT ARRAY ♦ 

* * 
*•*******♦♦♦♦♦♦♦♦ 



* INCREMENT * 
X* NUMBER OF ♦ 

* POINTS SCALED * 

* * 
♦♦♦♦♦♦♦♦♦♦♦♦•*♦*♦ 



♦.Y-COORDINATE 
*. REAL .* 



♦ COMPUTE ♦ 

■ X* SCALING FACTOR *. 

♦ (SEE TABLE 6) ♦ 

♦ ♦ 
***************** 



SCA012 

*****H4********** 
•COMPUTE SCALED * 

* INTEGER, * 
. . .X* INCREMENTAL * 

* Y-COORDINATE * 

* ♦ 
♦****♦♦♦♦♦♦♦♦♦♦♦♦ 



♦***H5********* 

* 4 

* RETURN 4 

* 4 
*•*••*••••***♦* 



*****J 1********** 

* * 

* COMPUTE * 
•SCALING FACTOR * 

• (SEE TABLE 61 ♦ 

♦ ♦ 
♦****♦*♦♦♦♦♦♦**♦♦ 



SCA009 

*****K2********** 
♦COMPUTE SCALED ♦ 

♦ REAL. ♦ 
...X* INCREMENTAL *. 

♦ Y-COORDINATE * 

♦ ♦ 
♦♦♦♦♦♦*•*•••***** 



*****J3 ********** 

* COMPUTE * 

* INTEGER. * 

* ABSOLUTE * 

* Y-CCORD1NATE * 

* * 
***************** 

. **** 

. * * 

..X* G4 * 
* * 

**** 

*****K3********** 
•IFFAHA15 * 

*-*-*-*-*-*-*-*—* 
K* CONVERT *. 

* TO INTEGER * 

* * 
***************** 



SCAOIO X 

*****K4********** 

* COMPUTE * 
♦ABSOLUTE VALUE.* 

...X*STORE VALUES IN* 

* OUTPUT ARRAY * 

* * 
***************** 
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Chart KG. Scissoring Routine 



****A2********* 

► * 
HFFAHA07 ENTRY * 

► * 
*************** 



*****B2*** ******* 

* * 

* * 
♦INITIALIZATION * 

* * 

* * 
***************** 



.*. 

C2 *. 

.* ARE *. 

.♦CURRENT AND* 

>. PREVIOUS PTS 

*.IN SCREEN.* 

*.+ GOS.* 

*. .* 

* NO 



scsoos 

*****C3********** 

* OUTPUT DATA = * 
i YES * INPUT DATA, * 

* X* GDSCB FIELDS *. 

* ARE UPDATED, * 

* REGISTER 15=0 * 
***************** 



****C4 ********* 

* * 

* RETURN * 
H * 

*************** 



.* IS IT *. 
y OPTION TO 

SCISSOR AT 

*. SCREEN . 

*.LI MIT. * 



.* ARE BOTH 

k. POINTS ON 

*• SCREEN 



*****=. 1 ********** 
♦SET APPROPRIATE* 
♦RETURN CODE AND* 

* ADDITIONAL *> 

* INFORMATION IN * 

* GSPARRAY * 
***************** 



D .* ARE BOTH *. 

.♦.POINTS WITHIN. 

♦. GOS .♦ 



*****E3* ********* 

♦ SET APPROPRIATED 
♦RETURN CODE AND* 

♦ ADDITIONAL * 
♦INFORMATION IN ♦ 

♦ GSPARRAY ♦ 
***************** 



.* 



.* 



* NO 

. ***♦ 
. * * 
..X* F4 * 
* * 
♦ ♦♦♦ 

*****G1 ********** 

* * 

* PLOT TO * 

* POINT OF ♦• 

* INTERSECTION ♦ 

* ♦ 
*♦**♦♦******♦♦*** 



SCS012 X 

*****F2 ********** 

*SET SCISSORING * 

YES * LI MI TS = GDS * 

* X* LIMITS UNLESS * 

♦ GDS IS OFF THE ♦ 

* SCREEN * *. 
*****•******•*♦♦♦ *. 

.(IF GDS IS OFF SCREEN. * 

. SET SCISSORING LIMITS 

. EQUAL TO SCREEN LIMITS.). 



SCS008 

****+F4********** 

* SET * 

* GDSXLAST AND * 
. ...X* GDSYLAST * 

X * FIELDS. SET * 

* REGISTER 15=4 * 
. ***************** 

**** 



SCS020 X 

*****G2* ********* 

* COMPUTE NO. * 

* AND LOCATIONS * 

* OF *> 

* INTERSECTIONS * 
*WITH LIMITS SET* 
***************** 



*****G 3* ********* 

* SET * 

* SCISSORING * 
.♦LIMITS = SCREENS 

* LIMITS ♦ 

* * 
***************** 



PREVIOUS POINT 
♦. WITHIN 

♦SCISSORING. ♦ 
♦ .LIMIT.* 



.♦NUMBER ♦. 
, 1 .♦ OF *. O 

,*X *. INTERSECTIONS.*.. 



.♦IS THE * 
.* CURRENT 
.X*. POINT ON 
♦.BOUNDARY 



*****H4********** 

* GENERATE * 

* POSITIONING + 
X* VECTOR AND *. 

* DISPLAY POINT * 
*0F INTERSECTION* 
***************** 



.CURRENT POINT. 

WITHIN 

♦SCISSORING.* 

*.L IMIT.* 



*****J2 **♦♦♦***** 

* PLOT FROM * 
♦PREVIOUS POINT * 
♦INTERSECTION TO* 

* CURRENT POINT * 

* INTERSECTION * 
***************** 



* J3 *.X. 

* * . 
**** 

X 
*****J3+********* 

* SET GDSXLAST * 

* AND GDSYLAST * 

* FIELDS IN * 
*GDSCD. REGISTER* 

* 15=8 + 
***************** 



***** K l********** 

* POSITION TO * 

* INTERSECTION * 
♦POINT. PLOT TO *. 

* CURRENT POINT * 

* * 
♦*♦♦*********♦♦♦♦ 



*****K2 ********** 

* SET * 

* GSPARRAY. SET * 
,X* GDSCB FIELDS, *. 

*REG1 STER 15 = 0* 

* * 
***************** 



**** 

* * 

* K2 < 

* 4 
**** 



****K 4* ******** 
k * 

► RETURN * 

f * 

*************** 



106 



Chart KH. 



Data Generator Routine 



****A1********* 

* * 
♦IFFAHA04 ENTRY * 

• * 
*************** 



*****Bl ********** 

* * 

* * 

* INITIALIZATION * 

* * 

* * 
***************** 



ONE OF THE FOLLOWING 
ORDERS IS GENERATED IF THE 
PRECEDING ORDER IS NOT OF 
DESIRED MODE. 



ABS POINT = GEPM 
ABS LINE = GEVM 
INCR POINT = GEPI2 
INCR LINE = GEVI2 



**** 

* * 

* CS * 

* * 
**** 



OPTIMIZED OUTPUT 

DAT00200 

*****AA********** 

* COMPUTE * 

* NUMBER OF * 
<♦ INCREMENTAL * 

* LINES/POINTS * 

* REQUIRED * 
***************** 



*****B4********** 

* DETERMINE IF * 

* MODE IS * 

* CURRENTLY SET * 

* IN GDSGRMOO * 

* * 
***************** 



DAT00150 



.* IS THIS *. NO 
*. THE FIRST .*... 
*. PASS .* 



IS OUTPUT 

TO BE 

.ABSOLUTE . 



.* IS OUTPUT *. 

TO BE 

♦ INCREMENTAL* 



C4 *. 

.* DOES *. 

.* LENGTH * 

*. WARRANT ABS 

♦ .OR INCR .* 

♦.DATA .♦ 

♦ . .♦ 

♦ ABS 



DAT01900 X 

♦♦♦♦♦CS* ********* 

* GENERATE * 
♦APPROPRIATE SET* 

. ..X*MODE ORDER. SET* 

* GDSGRMOD IF * 

* NEEDED * 
***************** 



DAT01200 X 

*****04********** 

♦ GENERA TE * 

♦ APPROPRIATE SET* 
.X*MODE ORDER, SET*X. 

♦UP GDSGRMOD IF ♦ 

♦ NEEDED ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦ 



♦****D5********** 

♦ ♦ 

♦ SET UP ♦ 

♦ BEAM BIT AS ♦ 

♦ NEEDED. UPDATE * 

♦ FIELDS ♦ 
♦**********♦♦♦♦♦♦ 



*****pl********** 

* * 

* SET UP * 

* INCLUDE/OMIT *> 

* STRUCTURE * 

* * 
***************** 



» BEAM * 

POSI TIONING 
».REQUIREO .* 



INCR .* I S OUTPUT *. 

*.MODE INCR OR . 

*.OPTIMI ZED. * 



. * DOES IT * 
.REQUIRE MORE 
*. THAN 1 .4 
♦.INCR .* 



*****II4********** ES ♦. 

* SET BEAM * .* *. 

* BIT AS * .* IS IT A *. YES 

* NECESSARY. *........X*. SINGLE .*... 

* UPDATE FIELDS * *. REQUEST .* 

* ♦ ♦. .♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ ♦. . ♦ 

♦ NO 

DATOISSO X 

•****F4*** *♦♦♦♦♦♦ *****F 5* ********* 

*DATA STORE KJ* * SET * 

*-*-*-*-*-*-*-*-* * BEAM PER * 

* STORE *X........*INCL/OMI T. SAVE*X.. 

♦ORDERS AND DATA* ♦ ONE BYTE OF ♦ 

* ♦ ♦ DATA ♦ 
******♦♦♦♦♦****** ***************** 



,*****G1********** 
♦DATA STORE KJ* 
*-*-*-*-*-*-*-*-* 

* STORE ORDER *. 

* AND SET UP * 

* UNRES ADDR 1 * 
***************** 



..X* D4 * 
* * 
**** 

*****G2********** 

* * 

* STORE * 
.X* LOGICAL START *. 

* ADDR IN KEY * 

* * 
***************** 



**** 

* -I 
. X* C2 * 

* * 
**** 



I S IT A 

SINGLE 

REQUEST 



*****H3*** ******* 
♦DATA STORE KJ* 
♦-*-*-*-♦-♦-♦-♦—♦ 

♦ STORE GTRU ♦X 
♦RESOLVE ADDR 1 * 

* FLAG ADDR 2 * 
********♦**♦♦♦♦♦♦ 



.♦WAS IT ♦. 

■*A CALL FOR *. 

.A POSITIONING. 

*. ORDER .* 



♦♦♦♦♦HS^ ********* 

* * 

* STORE * 
♦LOCIAL ADDR IN * 

♦ KEY ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦******** 



***** J J* ********* 

* * 

* SET UP + 
*FOR POSITIONING* 

* ORDER * 

* * 
***************** 



*****J «**♦♦♦♦♦♦♦♦ 
♦DATA STORE KJ* 

♦-♦-♦-♦-♦-♦-♦-♦-♦ 

* * 
♦RESOLVE ADDR 2 ♦ 

♦ ♦ 
♦♦♦♦**•********** 



**** JS*+++***** 
► * 

» RETURN * 
t * 

*************** 



*****K *********** 

* * 

* SET GDSGRMOD * 
♦TO CONTROL FOR *. 

* NEXT ELEMENT ♦ 

* ♦ 
***************** 
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Chart KJ. 



Data Store Routine 



**** A 1 ********* 

* * 
♦IFFAKA05 ENTRY • 

* * 
**•**•*•*••*•** 



•****B1*«* ******* 

* * 

• • 

• INITIALIZATION * 

* • 

•••••••••*••*•**• 



STR00800 

•****C2********** 
♦BUFFER MGT ICC* 



.* WAS 


*. 


NO 


*—*—*—*-*—*—*—*—* 


*. buffer ever 


.* 




.X* * 


•.ASSIGNED . 


* 




* ASSIGN BUFFER • 


*« • * 






* TO GDS * 


*. .* 






***************** 


* YES 








•**• . 








• * . 








* Dl *.X. 








* * . 








**** X 








STROOIOO .*. 






X 


Dl *. 






•****D2********** 


.* *. 






♦FLO CTRL HGT KA* 


.* ARE THERE 


*. 


YES 


*—*—*—*—*—*—*—*—* 


*. ANY INPUT 


.* 


.. • • 


• 40O • 


*. FLAGS 


* 




* GDS TO FLOW * 


*. .* 






* CONTROL * 


*. . * 




X 


••*•****•*•****** 


* NO 




***** 




**** . 




•KK • 




*KJ * . 




* Al* 




• El *.X. 




* * 




* * . 




• 




• *•• x 






X 


5TR00150 .*. 






«*• 



YES .* DOES *. 

„.*. LENGTH OF . 
*. DATA =0 .* 



.* ARE *. 
.* LIGHT PEN *. YES 
. ATTENTIONS .*.... 
*. ENABLED . * 



•***D3********* 

• 4 

• ERROR RETURN * 

• 4 
•**•••*••**••** 



*****E3* ********* 
•GHRITE * 

*-*-*-*-*-*-*-*-* 
K* SET PEN * 
♦MODE TO PERMIT * 
* DETECT * 
a**************** 



****A4********* 

* * 
♦STR00350 ENTRY * 

* * 
*************** 



IS IT 

AN UPDATE 

CALL 



.* IS IT *. 
.* OVERFLOW *. YES 
t. FOR .*... 
*. ORGEN .* 



.•DID ONE*. 
YES .* GDOA *. 
....*. CONTAIN ALL .* 
*.THE DATA .* 



*****E4********** 
•BUFFER HGT KC* 

*-*-*-*-*-*-*-*-* 

* GET * 
•MORE BUFFER FOR* 

* GDS * 
***************** 



OVERFLOW FUNCTION 



**•*****•*•*•**** 



****C5* ******** 
I 4 

► RETURN 4 

► 4 
*************** 



.* DOES *. NO 

. DATA FIT IN .*... 
• .ONE GDOA .* 

*. .* 



STR00300 

*****F2********** 

* HOVE AS MUCH * 

* DATA AS • 
...X* POSSIBLE INTO * 

* GDOA. UPDATE * 

* OACB * 
*•***•**•*•***•** 



***************** 



•****F4********** 

* SET * 

* UP GTRU TO * 
•NEWLY ASSIGNED • 

* BUFFER * 

* • 
***************** 



*****G1 ********** 

* * 

* STORE DATA IN • 

* GDOA. UPDATE * 

* OACB POINTERS * 

* * 
****** 4 ********** 



•****G2********** 

• STR003S0 * 
*—*—*-*—*-*—*-*—* 

* OVERFLOW * 

* FUNCTION * 

• • 
•**•*•*****•***** 



.* IS THERE *. 

• .AN EQUIVALENT. 

*. GDS .* 



STR00370 X 

•****G4********** 

* SHIFT ANY * 
•UNRESOLVED ADDR* 

* FROM CPU TO * 

* BUFFER * 

* * 
a**************** 



.X. ...... 

STR00200 1 

X 
••••HI********* 

• * 

• RETURN 4 

• 4 
***•••*•*•***** 



STR00505 X 

*****H2***4****** 

* SET UP NEXT * 

• OACB. PLACE * 
•APPROPRIATE SET* 

* MODE ORDER I N • 

• NEXT GDOA • 
*•*•***•**•••*•** 



*****H3* ********* 
♦SET UP GDSFCBUF* 

* GDSBCTEL * 
.* GDSCVDAT AND * 

* GDSBCTID. GET * 

* OACB FOR GDS * 
•*••*♦•***•••***• 



*-*-*-*_*_*_*-*-* 



****••***•*****•* 



•****J2*«* •••*•** 

* • 

* MOVE REST OF * 
.* DATA TO GDOA. • 

* UPDATE OACB * 

* * 
***************** 



**** J ********** 
t 4 

• RETURN 4 

» 4 

*************** 



108 



Chart KK. Data Store Routine (continued) 



•♦*♦♦ 

•KK * 
• AI* 



Al 



*. 



A2 



.*. 



.♦DOES IT*. .* IS ♦. 

► CONTAIN ♦ . YES .* A GTRU TO *. YES 

RESOLVING .*.... ....X*.AN UNRESOLVED.*.... 

►. ADDRESS .* *. ADDR . * 

*. .* *. THERE.* 



*• ■ 



* NO 



* NO 



HILL 

IT FIT IN 

GDOA 



•****A4********** 
♦STR00350 KJ* 
*— *- *—*—*—*—*—*—* 
(* OVERFLOW *. 

* FUNCTION • 

* * 
***************** 



,*AN ADDR TO *. 
• X*. BE RtSOLVED .< 
*. IN CPU .* 



• BI *.X. 



.* DOES *. .* *. 

.♦IT CONTAIN *. YES .* ARE 4 *. I*. 

*.AN UNRESOLVED.*.... ....X*>BYTES LEFT IN.*. 

*. ADDR .* *. GDOA .* 



*****B3*** ******* 
*STR00350 KJ* 

*-*-*-*-*-*-*-*-* 
PC* OVERFLOW * 

* FUNCTION * 

• * 
***************** 



*****E15*** ******* 

* STORE * 

* CUtJRfcNT * 

* PHYSICAL BUFFEH* 

* ADDR IN CPU * 

* LOCATION * 
***************** 

. •*•* 

. * * 

..X* BI * 
* * 

**** 



• *** 

* • 

* D4 • 

* * 
*•** 



*****C3********** 

* * 
♦SET UP LOCATION* 

* OF UNRESOLVED * 

* ADDR IN OACB * 

* * 
***************** 



***** 
•KJ * 
* El* 



*-*-*-*-*-*-*-*-* 

* WRI TE *> 
♦ADDR TO BUFFER ♦ 

* AND START * 
***************** 



STR02600 



MILL *. YES 

IT FIT In .*... 
. GDOA .* 



■ ILL 

IT FIT IN 

GDOA 



.*. 
EI *. 

.* IS IT *. 
.* FOR *. NO 

. OVERFLOW .*... 

♦.FUNCTION .* 
•.ONLY .* 
*. .* 
* YES 



♦**+*E2**» ******* 
*STR003SO KJ* 

*-*-*-*-*-*-*-*-* 

* OVERFLOW * 

* FUNCTION * 

* * 
***************** 



•****E4********** 
*STR003S0 KJ* 

*-*-*-*-*-*-*-*-* 

* OVERFLOW * 

* FUNCTION * 

* * 
**********♦♦♦♦♦♦♦ 



*****Fl********** 
•STR00350 KJ* 

*-*—*-*—*-*-*-*-* 

* OVERFLOW * 

* FUNCTION * 

* * 
A**************** 



*****F2*»* ******* 

* RESOLVE * 

* ADDRESSES * 

* WITHIN BUFFER * 
*SUBRTN LINKAGE • 

* * 
************•*•♦♦ 



*****F4********** 

* * 

* RESOLVE * 

* ADDRESSES IN * 

* BUFFER SUBRTN * 

* * 
***************** 



****F 5* ****+**♦ 
► * 

* HETUHN *X. . 

t * 

*************** 



***** 
*KJ * 
* EI* 



**♦♦* 
*KJ * 
* EI* 



•***G1 ********* 
» * 

* RETURN * 

* 4 
***•*•*♦♦♦♦•♦♦♦ 



Charts 
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APPENDIX A: CONTROL BLOCK FORMATS 



This appendix contains detailed formats 
of the control blocks that are created by 
GSP routines . Refer to "Control Blocks and 
Tables Used by GSP" for general information 
describing their use. 

Table 10 contains a listing of each 
control block and table created by GSP and 
gives the name of the routines that create 
and terminate the control block or table. 



Table 10. Creation and Termination of GSP 
Control Blocks 



GTMCE 



|( 

h 
j( 
J. 

GACB 
COMAREA 



DECB* 
GDOA 



Control Block 
or Table 



GSPCE 



GDSCE 



DCB 



OACB 



ATLCE 



ADEQ 



BCT 



FCT 



Key Table 



System GDSCB | INDEV 
± 



Created By 



INGSP 



INDEV 



INGDS 



INDEV, LOCPN 



INDEV, LOCPN 



INDEV 



Flow Control 
Management 

INGDS, Update 



INGDS, Update 



CRATL 



CRATL 



Buffer Mgt 



Flow Control 
Management 



Key Tbl Mgt 



Terminated By 



TMGSP 



TMDEV 



TMGDS 



TMDEV, LOCPN 



INDEV, LOCPN 



TMDEV 



Flow Control 

Management 

H H 

TMGDS , Update 

H 



TMGDS, Update 



ENATL 



ENATL 



Buffer Mgt 



Flow Control 
Management 



Key Tbl Mgt 



TMDEV 



♦Numerous subroutines create their own 
DECB for input/output operations. Such 
a EECB is constructed in the work/save 
area used by all subroutines. 



The control blocks described in this 
appendix in their order of description are: 



• Graphic subroutine 
block (GSPCB) 



control 



package 
• Graphic terminal control block (GTMCB) 



• Graphic data set control block (GDSCB) 

• Graphic attention control block (GACB) 
appendage only 

• Output area control block (OACB) 

• Attention level control block (ATLCB) 

• Attention data entry queue (ADEQ) 

These blocks are illustrated showing the 
layout of the fields within tnem. Detailed 
descriptions of the contents of these 
fields follow each block. Fields that 
contain addresses which point to other 
control blocks, tables, buffer locations, 
routines, and main storage areas are indi- 
cated by an upright arrow (t) in the field. 

The buffer control table (BCT) , flow 
control table (FCT) , and key table are 
described under their appropriate headings 
in the section "Program Organization". The 
communication area (COMAREA) , data control 
block (DCB) , data event control block 
(DECB) , and graphic data output area (GDOA) 
are described in the publication IBM 
System/3 60 Operating System: Graphic Pro- 



IBM 2250 Display 



gramming Services for 
Unit, Form C27-6909. 



Graphic Subroutine Package Control Block 
(GSPCB) 



+ 
+ 4 
+ 8 
+12 
+16 
+20 
+24 
+28 
+32 
+36 
+40 
+44 
+48 



GSPDCTR2 t 
^ T T T 

GSPSYSID j GSPCBID j GSPBUSYS j Reserved 
+ + + 

Reserved | GSPDUMP | GSPABEND | Reserved 
l ± j. 

GSPAWORK t 



-4 Bytes-- 
GSPGTMCB 



GSPSTRTB t 

GSPARRAY 
Second Word of GSPARRAY 
Third Word of GSPARRAY 
Fourth Word of GSPARRAY 
Fifth Word of GSPARRAY 

GSPNULLV t 

GSPASTAT t 
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GSPGTMCB 

Address of the most recently created 
GTMCB in the chain of GTMCBs attached 
to the GSPCB. 



GSPDCTR2 

Address of Director Part 2. 



GSPSYSID 

One-byte field containing X'F2' that 
identifies this as a GSP control 
block. 



GSPCBID 

Cne-byte field in which X*01' iden- 
tifies this as the GSPCB. 



GSPBUSYS 

One- byte field that indicates status 
of GSP routines : 

X'OO' - not busy, or 

X»ff' - busy. 



GSPDUMP 

Cne-byte field that indicates whether 
the null variable is negative, meaning 
a dump is desired if the ABEND macro 
instruction is issued; or positive, 
meaning there should be no dump. The 
lit setting is: 

X*00' - no dump, or 

X'FF" - dump. 



GSPAEEND 

Cne-byte field that contains the abso- 
lute value of the null variable which 
determines whether or not the program 
is to be abnormally terminated when 
the return code is tested. 



GSPAWORK 

Address of a work/save area that 
lows the GSPCB. 



fol- 



GSPSTPTB 

Address of the first stroke table that 
was loaded. 



GSPARFAY 

The first word of a five-word field 
which is the return code array. In 
this first word. Byte contains the 
return code that is being passed by a 
GSP subroutine. Byte 1 contains the 
last return code tested by ITRC, and 
it is set each time a return code is 
tested by the ITRC subroutine. Bytes 
2 and 3 are reserved. Bit settings 
for Bytes and 1 are as follows: 



r 

| Return Codes 

jand Meanings 


1 

1 

1 


Bit 
1 


Settings 
2 3 4 5 6 


7 




1° ~ 


Sati sf actory 


1 

1 
1 




























|1 " 


Scissoring used 


1 

1 

l 





1 






















|2 - 


Scaling error 


1 

1 

1 








1 



















|3 - 


Storage exceeded 


1 

1 
1 











1 
















|4 - 


Parameter error 


1 

1 
i 














1 













|5 - 


Input/output error | 

















1 











Second Word 

When return code 1 is issued, this 
word contains additional information 
consisting of the value of the count 
field associated with the data that 
was last scissored. A value of zero 
indicates no data was generated. A 
value of 1 is the count for the STPOS 
or the MVPOS subroutine. 

Third Word 

When return code 2 is issued, this 
word contains additional information 
consisting of the value of the count 
field associated with the data that 
was last scaled. A value of zero 
indicates no data was generated. A 
value of 1 is the count for the STPOS 
or the MVPOS subroutine. 

Fourth Word 

When return code 3 is issued, this 
word contains additional information 
which is one of the following values : 

1 - update attempt failed. 

2 - 128 -byte GDS exceeded, or equi- 

valent GDS exceeded. 

3 - buffer for data not available. 

4 - main storage not available. 

Fifth Word 

When return code 4 is issued, this 
word contains additional information 
which is one of the following values : 
- cannot determine that any one 

parameter is in error. 
1-n - parameter number, counting 
from left to right, that was 
in error. In this case, "n" 
represents the maximum number 
of parameters specified in the 
call to the subroutine. 

GSPNULLV 

Address of the null variable which is 
recognized in the absence of a param- 
eter. The null variable itself is 
accessed to determine whether or not 
the program should be abnormally ter- 
minated, and to determine whether or 
not a dump is requested. 
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GSP AS TAT 

Address of the status table. 



Graphic Terminal Control Block (GTMCB) 



<— 

r — 



+ 4 
+ 8 
+12 
+16 
+ 20 
+ 24 
+28 
+ 32 
+ 36 
+40 
+44 
+ 48 
+ 52 
+ 56 
+ 60 
+ 64 



4 Bytes — 
GTMNXGTM 









T T' 

GTMVALID j GTMTERID | 

± A 



f 

GTMGSPCB t 

Reserved 



H 



GTMGTMCB 
GTMGRDCB 



._ 4 



I— 
I— 



GTMGDSCB 

GTMLATBL 

GTMGACBA ♦ 
4 

GTMSYGDS t 

GTMBCTBL t 






GTMFCTBL 
GTMPFKSS 



GTMFEATS | GTMREPOS 

GTMDECB1 t 
T H 

GTMGDOAL | GTMDVADR 
j. ^ ^ 

Reserved j GTMCRLOC t 
GTMBCTSM | GTMBCTLG | GTMFLAGS | GTMLIGHT 



GTMGDSCB 

Address of the most recently created 

GDSCB in the chain of GDSCBs that is 

associated with this 2250. 

GTMLATBL 

Address of the active attention level, 
which is represented by the most 
recently created ATLCB. 

GTMGACBA 

Address of the GSP GACB. 

GTMSYGDS 

Address of the system GDSCB. This 
GDSCB represents the GDS used for trie 
graphic orders and data generated by 
the light pen subroutines for screen 
scanning or displaying the tracking 
symbol. 



GTMBCTBL 

Address of the 
for this 2250. 



buffer control table 



GTMFCTBL 

Address of the flow control table 
this 2250. 



for 



GTMPFKSS 

This field contains the light mask 
which designates the programmed func- 
tion indicator lights that are to be 
lit. Bits through 31 correspond to 
the programmed function keys through 
31. This field is used in conjunction 
with the GTMLIGHT field. 

GTMFEATS 

This half-word field is divided into 
one-byte fields which define the char- 
acteristics of this 2250, as follows: 



GTMNXGTM 

Address of the next GTMCB in the 
chain. 

GTMGSPCB 

Address of the GSPCB. 

GTMVALID 

One-byte field containing X , F2" that 
identifies this as a GSP control 
block. 

GTMTERID 

Cne-byte field in which X , 02' iden- 
tifies this as a GTMCB. 

GTMGTMCB 

Address of this GTMCB used for deter- 
mining that it is the control block 
specified by the user. 

GTMGRECB 

Address of the DCB created for this 
2250. 



| Setting 

L J 


Meaning 

L 


1 
i 


r i 
I Byte 
| X'Ol" 


r 

IBM 2250, Model 1 


i 


| X^ 1 


IBM 2250, Model 3 




i Byte 1 
| X , 04' 
j X'08 1 
j X'10* 


Graphic design feature 
Character generator 
Programmed function key- 
board 




| X'20' 
j X'llO 1 
| X^O* 


Light pen 

Alphameric keyboard 
Absolute vectors 


_j 



GTMREPOS 

A half-word field that contains the 
buffer address of the coordinates used 
for repositioning the 2250 beam for 
light pen tracking. 



GTMDECB1 

Address of the data 
block (DECB) used 



event control 
by GSP for 
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input/output overlap. This DECB is 
created by Flow Control Management. 



GTMGDOAL 

A half-word field that contains the 
length of each GDOA for the GDSs 
attached to this 2250 as specified by 
a call to the INDEV subroutine. 



GTMDVABR 

The physical address of this 2250 as 
obtained from the UCB. 



GTMCRLOC 

Address of the physical buffer loca- 
tion that will contain the cursor. 



GTMBCTSM 

Index used to obtain an identification 
number for Buffer Management when a 
128-byte buffer subsection is 
assigned. 



GTM3CTLG 

Index used to obtain an identification 
number for Buffer Management when a 
256-byte buffer section, or multiple 
thereof, is assigned. 



GTMFLAGS 

One-byte field containing miscellane- 
ous flags, as follows: 

X f 01* - cursor is in the 2250. 
X'OS" - pen tracking subroutine is 
in the buffer. 



GTMLIGHT 

One-byte field that specifies the pro- 
grammed function keyboard lighting 
option selected: 

X , 02 i - light no programmed function 
indicators ( default option) . 
X^Oa* - light enabled keys. 
X , 04' - light keys as specified in 
the light mask (GTMPFKSS) . 



Graphic Data Set Control Block (GDSCB) 



+ 
+ 4 
+ 8 
+ 12 
+ 16 
+ 20 
+ 24 
+ 28 
+ 32 
+ 36 
+ 40 
+ 44 
+ 48 
+ 52 
+ 56 
+ 60 
+ 64 
+ 68 
+ 72 
+ 76 
+ 80 
+ 84 
+ 88 
+ 92 
+ 96 
+100 
+104 
+108 
+112 



-4 Bytes 

GDSNXGDS 



GDSGTMCB 1 

GDSVALID | GDSGDSID | GDS FLAGS | GDSFLGS2 



GDSAOACB 



GDSGDSCB 
GDSKEYTB 



GDSXLAST 
GDSYLAST 



GDSXCURR 



GDSYCURR 



GDSOVLLL 
GDSWLLL 
GDSUVLUR 






GDSWLUR 



GDSXVILL 



I— 



GDSYVILL 
GDSXVIDR 



GDSYVIUR 



H- 



GDSXVRLL 



GDSYVRLL 
GDSXVRUR 



H 



GDSYVRUR 



j GDSCHARS | GDSSCISS | GDSCURMD | GDSDATMD 
j. I 



GDSOVDAT 






GDSFCBUF t | GDSBCTEL t 
GDSBCTID|GDSGRMOD| GDSGDOAL 



k— 



GDSSHDBK 



GDSSHDFD 



GDSREPPB 



* 



T _ 

t I 
J.. 



GDSKEYSV 



GDSREPDT 
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GDSNXGDS 

Address of the next GDSCB in the chain 
of GDSCBs attached to the GTMCB. 

GDSGTMCB 

Address of the GTMCB associated with 
this GDS. 

GDSVALID 

One-byte field containing X'F2* that 
identifies this as a GSP control 
block. 

GDSGDSID 

One-byte field in which X'03' iden- 
tifies this as a GDSCB. 

GDSFLAGS 

One-byte field that contains assorted 
flags, as follows: 



r t t 1 

| Bit | or Off | 1 or On | 

| None | Equivalent GDS 
j J is in the buffer 

j. + + ^ 

1 (Correlation |No correlation 
jvalue passed j value passed 
| (BGSEQ/BGSUB) | 



I- 

2 | Cursor absent | Cursor present 

3 | Level 1 GSP | Level 2 GSP 

4 | Not equivalent j Equivalent GDS 
^ ., + H " 

5 | No sequence | Sequence begun 

6 | No subroutine j Subroutine begun 



I- +~ 



7 | Disable light | Permit light 
j pen attentions J pen attentions 

x x 



GDSFLGS2 

Cne-byte field that contains flags, as 
follows : 

X* 01* - SDATL subroutine has been 
called. 

GDSAOACB 

Address of the active output area 
control block. 

GDSGDSCB 

Address of this GDSCB used for deter- 
mining that it is the control block 
specified by the user. 

GDSKEYTB 

Address of the key table for this GDS, 
if present, or zero. 

GDSXLAST 

Value in raster units of the x- 
coordinate for the last call to an 
image generation subroutine, before 
scissoring. 



GDSYLAST 

Value in raster units of the y- 
coordinate for the last call to an 
image generation subroutine, before 
scissoring. 

GDSXCURR 

Current x-coordinate position of the 
2250 beam in raster units, after 
scissoring. 

GDSYCURR 

Current y-coordinate position of the 
2250 beam in raster units, after scis- 
soring. 



GDSUVLLL 

Value in user's units of 
x-coordinate of the GDS. 
may be real or integer. 

GDSWLLL 

Value in user's units of 
y-coordinate of the GDS. 
may be real or integer. 



lower- left 
This value 



lower- left 
This value 



GDSUVLUR 

Value in user's units of upper- right 
x-coordinate of the GDS. This value 
may be real or integer. 

GDSWLUR 

Value in user's units of upper- right 
y-coordinate of the GDS. This value 
may be real or integer. 

GDSXVILL 

Integer value in raster units of 
lower-left x-coordinate of the GDS. 

GDSYVLLL 

Integer value in raster units of 
lower-left y-coordinate of the GDS. 

GDSXVIDR 

Integer value in raster units of 
upper-right x-coordinate of the GDS. 

GDSYVIUR 

Integer value in raster units of the 
upper-right y-coordinate of the GDS. 

GDSXVRLL 

Real value in raster units of the 
lower-left x-coordinate of the GDS. 

GDSYVRLL 

Real value in raster units of the 
lower-left y-coordinate of the GDS. 

GDSXVRUR 

Real value in raster units of the 
upper-right x-coordinate of the GDS. 

GDSYVRUR 

Real value in raster units of the 
upper-right y-coordinate of the GDS. 

GDSCHARS 

One-byte field that contains the char- 
acter option flags, as follows: 
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X"08* - basic, protected 

X'OU* - large, protected 

X , 02 f - basic, unprotected 

X'Ol* - large, unprotected 



GDSSCISS 

One- byte field that contains the scis- 
soring option flags, as follows: 
X'10* - no scissoring 
X*08* - scissor at screen boundaries 
X'OV - scissor at GDS boundaries 
X*02* - continue generation 
X'Ol' - discontinue generation 



GDSCURMD 

One-byte field that contains the out- 
put data mode option, as follows: 

X'OU* - optimized 

X i 02* - absolute 

X'01' - incremental 

GDSDATMD 

One- byte field that contains the input 
data mode option, as follows: 

r T T T T T 1 

| Code j Coordinate | Real | Int | Abs | Incr | 



X'80' 
X'UO' 
X^O* 
X'10* 

x'08* 

X'QH* 
X'02* 
X'Ol' 



| Yes 
| Yes 



JYes 
| Yes 



L_. 



I Yes I 

| | Yes 
Yes | Yes | 
Yes | | Yes 

| Yes | 

| | Yes 
Yes | Yes j 
Yes j | Yes 
J. J. 



The default option is set by using 
X*88* which indicates real, absolute 
input data will be supplied for both 
x- and y-coordinates. This applies in 
cases where the SDATM subroutine is 
not called. 

GDSOVEAT 

Contains a GTRU order that transfers 
control to the flow control structure 
in the buffer when the GDS is execut- 
ed. 

GDSFCEUF 

A half-word field containing the buf- 
fer address of the flow control entry 
for this GDS. 

GDSBCTEL 

A half-word field containing the BCT 
entry number for the first buffer 
section assigned to this GDS. 

GDSBCTID 

Cne-byte field containing the iden- 
tification code of this GDS that is 
entered in the buffer control table 
entry . 



GDSGRMOD 

One-byte field that indicates the cur- 
rent mode of the 2250 associated with 
this GDS, as follows: 

X'80* - character basic, protected 
X*40 f - character large, protected 
X*20" - character basic, unprotected 
X'10' - character large, unprotected 
X'OS' - line absolute 
X'OU* - line incremental 
X'02' - point absolute 
X'01* - point incremental 
X'OO' - control 



GDSGDOAL 

A half-word field that contains the 
length of every GDOA associated with 
this GDS as specified by a call to the 
INGDS subroutine, or by the GTMGDOAL 
field in the GTMCB. 



GDSSHDBK 

Address of the equivalent GDS that was 
created just prior to this one. 

GDSSHDFD 

Address of the equivalent GDS that was 
created immediately after this one. 

GDSREPPB 

A half-word field containing the phys- 
ical buffer address of the replacement 
data stored in the GDSREPDT field. 

GDSKEYSV 

A half-word field containing the logi- 
cal buffer address which is in the key 
created by the call to BGSEQ or BGSDB. 
It is used to locate the key in the 
key table when ENSEQ or ENSUB is 
called. 

GDSREPDT 

Four bytes of orders and data from the 
GDOA associated with this GDS that 
will be used to replace the GTRU order 
to the flow control structure when the 
next call to the EXEC subroutine is 
made. 



Graphic Attention Control Block (GACB) 

Three GACBs, one of which is reserved, 
are created by INDEV. The format of each 
of these GACBs is the same as created by 
the Graphics Access Method (GAM) , except 
that each GACB has eight extra bytes 
appended to the beginning of it. The 
format of the GAM GACB is depicted in the 
publication IBM System/360 Operating Sys- 
tem: Graphics Access Method, Program Logic 
Manual , Form Y27-7113. The format of the 
eight extra bytes in each GACB for GSP and 
the priority of each GACB for GSP are shown 
below. 
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GSP GACB: Priority = 
< 4 Bytes- 



Address of reserved GACB 
Address of associated GTMCB 



— l 

♦ I 
— I 

♦ I 
i 



RESERVED GACB: Priority = 1 

< Bytes 

I Address of Panic GACB 



| Address of associated GTMCB 

PANIC GACB: Priority = 127 

< n B y tes 



♦ I 
J 



Zero 



j Address of associated GTMCB 



Output Area Control Block COACB) 



j 




OACB2PT 

Address of the next OACB for this GDS. 

GD0A1PT 

Address of the GDOA associated with 
this OACB. 



STATUS 

Flag field used to show the status of 
the OACB. Flags are as follows: 

X*80 i - This GDS has not been added 
to the flow control struc- 
ture, and no buffer has been 
assigned yet. 
X'ao* - Four bytes of data located 
at CRSA must be saved in the 
GDSCB, along with the physi- 
cal buffer address. 



CRSA 



OLP 



(Current Routine Start Address) is the 
address of the location in the GDOA 
that is the start of the set of 
graphic orders to be stored by the 
next input/ output operation. 

(Order Load Point) is the address of 
the next available location in the 
GDOA where the next graphic order of 
the current routine will be stored. 



BLP 



(Buffer Load Point) is the address of 
the buffer location where the first 
byte of data from the output area will 
be written by the next input/output 
operation. 

BUFSTART 

Is the buffer start address which is 
the address of the buffer location 
where the first byte of data from the 
GDOA is written. 

BDFLEN 

Length of the buffer that is currently 
available for writing out graphic 
orders and data. Initially this is 
set to the GDOA length. It is adjust- 
ed whenever part of the GDOA is writ- 
ten to the buffer. 



CPU1 



BUF1 



CPU2 



BUF2 



Location in the GDOA of an unresolved 
address in connection with a sequence 
or buffer subroutine. This unresolved 
address is resolved by Data Store. 



Location in the buffer, because of an 
overflow, of an unresolved address in 
connection with a sequence or buffer 
subroutine. Either CPU1 or BDF1 is 
used by Data Store for resolving 
addresses, but both of these fields 
are never used at a given time. 



Location in the GDOA of a second 
unresolved address that is resolved by 
Data Store. 



Location in the buffer, because of an 
overflow, of a second unresolved 
address. Either CPD2 or BDF2 is used 
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by Data Store for resolving addresses, 
but both of these fields are never 
used at a given time. 

LOGSTART 

Logical buffer address of the buffer 
load point (BLP). 

LOGCURR 

logical buffer address of the order 
load point (OLP) . 

LENLEFT 

Unused length (in bytes) remaining in 
the GDOA after graphic orders have 
been stored, which does not include 
the last four bytes (reserved for a 
GTRU to the next buffer section) . 



Attention Level Control Block (ATLCB) 

















A' 


+0 


r _,_ _ _ 

ATTNFWPT 


t j 




+4 


ATTNBKPT 


t | 




+8 


ATTNLVID 






+ 12 


j Reserved 




r 
1 


+16 


| ATTNAVAL 


t | 




+ 20 


| Reserved 






+ 24 


j ATTNMLEN 


t | 


j 


+ 28 


| ATTNFLGA | Reserved | ATTNBPID | ATTNLITE | 
L _ X _ JL_ JL __ -j 




+ 36 


| ATTNPFLM 






+40 


| ATTNPFEN 






+ 44 


| ATTNANEN 






+ 48 


Reserved 






+ 52 


| Reserved 






+ 56 


Reserved 






+ 60 


Reserved 




L 


+ 64 


Reserved 






+ 68 


Reserved 






+72 


Reserved 






+76 


j Reserved 

L 


_ j 





ATTNFWPT 

Address of next lower ATLCB in the 
chain. If there is no lower ATLCB, 
ATTNFWPT = 0. 



ATTNBKPT 

Address of next higher ATLCB in the 
chain. If there is no higher ATLCB, 
ATTNBKPT contains the address of the 
GTMCB. 



ATTNLVID 

A value of X , F2040000 t to identify 
this control block as a valid ATLCB. 



ATTNAVAL 

Address of the first available ADEQ 
where the information from the next 
attention will be placed. 



ATTNMLEN 

Address of the ADEQ where information 
from the first attention that occurred 
has been placed. 



ATTNFLGA 

One-byte field which contains the fol- 
lowing options for the designated 
attention sources: 



Source and Option 



t 1 

Bit Settings 
01234567 

EOS 1. Return x-, y- 
coordinates 



EOS 2. Restart display 
immediately 



LP 



1. Same as EOS 1 



LP 



2. Same as EOS 2 



LP 3. Return charac- 
ter information 






All: Do not dequeue data 
on inactive level 



10000000 



01000000 



00100000 



+ 

00001000 



00010000 



00000100 



Note: If data is always to be dequeued 
after a call to RQATN, bit 5 
remains zero. 



ATTNBPID 

One-byte field which indicates whether 
the ATTNBKPT field points to another 
ATLCB (ATTNBPID = X'OOM or the GTMCB 
(ATTNBPID = X'OIM. 



ATTNLITE 

One-byte field which contains pro- 
grammed function indicator lights 
options for this attention level as 
follows : 
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|Bit Setting | Meaning 


|X«01» 


jUse default option in GTMCB 


ix'02* 


t — "~ 

|Turn off all indicator lights 


ix'oa 1 

IX'O^ 1 


| Light enabled keys 
__ + 

juse ATTNPFLM light mask 



Attention Data Entry Queue (ADEQ) 



ATTNPFLM 

Determines which programmed function 
indicator lights are to be lit if 
ATTNLITE = X^*'. Bit positions 0-31 
of this field correspond to programmed 
function keys 0-31, respectively. 
When the bit is on, its corresponding 
indicator light is lit. 

ATTNPFEN 

Specifies which programmed function 
keys are enabled for this ATLCB. Bit 
positions 0-31 correspond to pro- 
grammed function keys 0-31, respec- 
tively. When the bit is on, its 
corresponding key is enabled. 

ATTNANEN 

Specifies which attention sources 
other than programmed function keys 
are enabled for this ATLCB. The fol- 
lowing bits are set in byte to 
enable the specified attention source 



Attention 
Source 

END key 

CANCEL key 



j Bit Settings 
| 0123U567 



j 00000001 



j 00001000 



Light pen 



| 00000010 



End-order- sequence j 00000100 



+0 

+4 

+8 

+12 

+16 

+20 



—4 Bytes- 
ADEQFPTR 



Reserved 
ADEQWRD1 



ADEQWRD2 
ADEQWRD3 
Reserved 



l 



ADEQFPTR 

Address of next ADEQ in the chain. 



ADEQWRD1, ADEQWRD2, ADEQWRD3 

Contain information from the first 
three words of the COMAREA associated 
with the GSP GACB. 
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APPENDIX B; MODULE DIRECTORY 



This appendix contains the names of all the modules in GSP f listed in alphameric 
order, together with their associated routine name, type, and method of entry, which is 
indicated m the status table. These module names also appear in the table of contents 



Module Name 


Associated 
Routine 


IFFAAA01 


INGSP Part 2 


IFFAAA02 


TMGSP Part 2 


IFFAAA03 


INDEV 


IFFAAA04 


TMDEV 


IFFAAA05 


INGDS 


IFFAAA06 


TMGDS 


IFFACAOO 


CRATL 


IFFAC£01 


ENATL 


IFFACA02 


ENATN 


IFFAC203 


DSATN 


IFFACA04 


MPATL 


IFFACA05 


MLPEO 


IFFACA06 


SLPAT 


IFFACA07 


MLITS 


IFFACA08 


RQATN 


IFFACA13 


SALRM 


IFFADA01 


GSPRD 


IFFADA02 


RCURS 


IFFADA03 


ICURS 


IFFAES01 


SDATM 


IFFAEA02 


SGRAM 


IFFAEA03 


SDATL 


IFFAEA04 


SGDSL 


IFFAEA06 


SSCIS 


IFFAEA07 


SCHAM 


IFFAFA01 


PLINE 



Type of Routine 

Initiation 

Termination 

Initiation 

Termination 

Initiation 

Termination 

Attention Related 

Attention Related 

Attention Related 

Attention Related 

Attention Related 

Attention Related 

Attention Related 

Attention Related 

Attention Related 

Attention Related 

Keyboard Input and 
Buffer Data Analysis 

Keyboard Input and 
Buffer Data Analysis 

Keyboard Input and 
Buffer Data Analysis 

Option Definition 

Option Definition 

Option Definition 

Option Definition 

Option Definition 

Option Definition 

Image Generation 



Method of Entry 

LINK 

LINK 

LINK 

LINK 

LINK 

LINK 

LINK 

LINK 

LINK 

LINK 

LINK 

LINK 

LINK 

LINK 

LOAD and CALL 

LINK 

LOAD and CALL 

LOAD and CALL 

LOAD and CALL 

LINK 
LINK 
LINK 
LINK 
LINK 
LINK 
LOAD and CALL 
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Module Name 


Associated 
Routine 


Type of Routine 


Method of 


Entry 


IFFAFS02 


PSGMT 


Image Generation 


LOAD and CALL 


IFFAFA03 


PTEXT 


Image Generation 


LOAD and < 


£ALL 


IFFAFA04 


STPGS 


Image Identification 


LINK 




IFFAFA05 


BGSEQ 


Image Identification 


LINK 




IFFAFS06 


ENSEQ 


Image Identification 


LINK 




IFFAFS07 


ENSUB 


Image Identification 


LINK 




IFFAFA08 


LKSUB 


Image Identification 


LINK 




IFFAF209 


INCL 


Image Control 


LINK 




IFFAFA10 


OMIT 


Image Control 


LINK 




IFFAF£11 


EXEC 


Image Control 


LOAD and 


CALL 


IFFAFA12 


RESET 


Image Control 


LINK 




IFFAFA13 


IDPOS 


Image Control 


LINK 




IFFAF£14 


FSMOD 


Image Control 


LINK 




IFFAFA15 


STEOS 


Image Generation 


LINK 




IFFAFA16 


PPNT 


Image Generation 


LOAD and 


CALL 


IFFAFA17 


MVPOS 


Image Generation 


LINK 




IFFAFM8 


BGSUB 


Image Identification 


LINK 




IFFAFA19 


ORGDS 


Image Control 


LINK 




IFFAGA01 


LOCPN 


Light Pen 


LINK 




IFF AG AO 2 


BGTRK 


Light Pen 


LINK 




IFFAGA03 


RDTRK 


Light Pen 


LINK 




IFFAGA04 


ENTRK 


Light Pen 


LINK 




IFFAGA05 


DFSTR 


Stroke Generator 


LINK 




IFFAGA06 


PLSTR 


Stroke Generator 


LINK 




IFFAGA07 


ORGEN 


Miscellaneous 


LINK 




IFFAGA08 


CNVRT 


Miscellaneous 


LINK 




IFFAHA01 


Flow Control 
Management 


Internal 


LOAD and 


CALL 


IFFAHA02 


Buffer 
Management 


Internal 


LOAD and 


CALL 


IFFAHA03 


Key Table 
Management 


Internal 


LOAD and 


CALL 


IFFAHAOU 


Data 
Generator 


Internal 


LOAD and 


CALL 
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Module Name 

IFFAHA05 

IFFAHA06 

IFFAHA07 

IFFAHA09 

IFFAHM1 

IFFAHA12 
IFFAH313 
IFFAHA14 
IFFAHA15 
IFFAHA16 
IFFAJA01 
IFFAJA02 
IFFAJA03 
IFFAJ£04 
IHCGSP01 
IHCGSP02 
IHCGSP03 



Associated 
Routine 

Data Store 

Scaling 

Scissoring 

CANCEL Key 
(Panic Key) 

Director 
Part 2 

Status Table 

Update 

Update 

Scaling 

Stroke Table 

ITRC 

ITBP 

RTBP 

ITST 

INGSP Part 1 

TMGSP Part 1 

Director 
Part 1 



Type of Routine 
Internal 
Internal 
Internal 
Attention Related 

Internal 

Only Loadable 
Internal 
Internal 
Internal 
Only Loadable 
GSP Function 
GSP Function 
GSP Function 
GSP Function 
Initiation 
Termina tion 
Internal 1 



Method of Entry 
LOAD and CALL 
LOAD and CALL 
LOAD and CALL 
LOAD and CALL 

LOAD and CALL 

LOAD 

LOAD and CALL 
LOAD and CALL 
LOAD and CALL 
LOAD 

LOAD and CALL 
LOAD and CALL 
LOAD and CALL 
LOAD and CALL 
User's Program 
User's Program 
User's Program 
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APPENDIX C. ACRONYMS AND ABBREVIATIONS 



abs absolute 

addr address 

ADEQ attention data entry queue 

asgn assignment 

ATLCB attention level control block 

attn attention 

avail available 

BCT buffer control table 

bfr buffer 

chars characters 

COMAREA communication area 

CPU central processing unit 

Ctrl control 

DCB data control block 

DECB data event control block 

EOS end-order-sequence 

EP entry point 

EQ equal 

FCT flow control table 

flo flow 

GACB graphic attention control block 

GDOA graphic data output area 

GDS graphic data set 



GDSCB graphic data set control block 

gen generator 

GSPCB graphic subroutine package control 
block 

GT greater than 

GTMCB graphic terminal control block 

ID identification 

incr incremental 

LP light pen 

LT less than 

mgt management 

no. number 

OACB ouput area control block 

opt optimized 

ovflo overflow 

PFK programmed function keyboard 

pts pointers 

reg register 

seg segment 

subrtn subroutine 

tbl table 

UCB unit control block 

unres unresolved 
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APPENDIX D: AUTOCHART SYMBOLS 



Figure 20 shows the functional symbols used by Autochart. These symbols and the 
explanation of the sample flowchart in the figure describe the way they are used in the 
flowcharts for this manual. 



FUNCTIONAL SYMBOLS 



EXPLANATION 



**** 
*EM * 
* B3 *- 



IDENTIFIES THIS CHART AND BLOCK LOCATION 
AND INDICATES THIS CHART IS ENTERED FROM 
AT LEAST ONE OTHER CHART. 



1 1 ******##»« 



********** 



V 
****B3* ******** 
*■ * 

► ENTRY * 

* -K 

*************** 



****Ol********* 

* * 
•TERMINAL BLOCK * 

* * 
*************** 



*****£■ I******* 



************** 



******F1 *********** 



*#** 
t * 

* C3 *-> 



**** 
LABEL! .*. 

C3 *. 



*****D3********** 



*************#*** 



LABEL2 V 

•****E3********** 
* SUBNAME * 



►***************# 



LA8EL1 IS THE SYMBOLIC LOCATION OF THE 
FIRST INSTRUCTION OF A SUBROUTINE WITHIN 
THIS ROUTINE. 

INDICATES THE FLOW OF CONTROL WHICH 
DEPENDS ON THE RESULT OF SOME TEST. 



INDICATES PROCESSING. 



LABEL2 SHOWS THE SYMBOLIC LOCATION OF 
THE FIRST INSTRUCTION OF A SUBROUTINE 
THAT TRANSFERS CONTROL TO A PREDEFINED 
SUBROUTINE (SUBNAME) DESCRIBED 
ELSEWHERE. 



<-##**#**#*#*# 



**** 

t * 

* C3 * 



SHOWS CONTROL IS TRANSFERRED TO BLOCK C3 
IN THIS CHART WHEN THE RESULT OF SOME 
TEST IS 'NO'. 



**#**G1********** 

* # 
*—*—*—*—*—*—*—*—* 

* SUBROUTINE * 

* BLOCK * 
***************** 



**** 
->* C3 * 



***** 
*EB * 
* Al* 



****H3 ********* 
t * 

* EXIT * 
t * 

*************** 



SHOWS CONTROL IS TRANSFERRED TO BLOCK Al 
ON ANOTHER CHART ( EB ) WHEN THE RESULT OF 
SOME TEST IS ■NO". 



INDICATES AN EXIT IS MADE FROM THIS 
ROUTINE WHEN THE RESULT OF THE TEST MADE 
AT BLOCK G3 IS «YES«. 



Figure 20. Autochart Functional Symbols and Sample Flowchart 
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INDEX 



When more than one reference is given, 
the first page number indicates the major 
reference. 

ABEND macro instruction 14,18,41,42 

absolute data 22,32,61,62 

accessing control blocks 13 

active attention level 34,36,37,38,41 

ADEQ (see attention data entry queue) 

alphameric keyboard 

CANCEL key attention 39,41-42 

END key attention 39,41-42 

enabling 37,34 

unlocked 20 

using to cause abnormal 
program termination 41-42 
arguments 8 
assembler language 7 

ATLCB (see attention level control block) 
attention data entry queue 

creation 34-36,110 

description 10,118 

format 118 

termination 36-37,110 
attention information 

in ADEQ 13,12,117 

made available 35,38-39 

requested about the light 
pen 35,38-39 
attention level control block 

creation 34-36,110 

description 10,117-118 

format 117 

initialization 34,36 

termination 36-37,110 
attention levels 

active 34,36,37,38,41 

creating 34-36 

hierarchy 34,36,41 

inactive 36,37,38 

relative position 41 

terminating 34,36-37 
attention related subroutines 34-42 
attention source masks 37,38 
attention sources 

disabled 37 

enabled 35,37,118 
attributes of GSP routines 7 
audible alarm 42 

BCT (see buffer control table) 

BGSEQ 27-28 

BGSUB 27-28 

BGTRK 42 

buffer assignment 50-53,62-63 

buffer control table 

cleared 20,50,54 

description 10,50-52 
buffer control table (BCT) entry 50-52 



buffer data analysis 33-34 
buffer management 50-54 
buffer subroutine facility 2 7-29 
buffer subroutine linkage 

creation of 29 

structure of 66 
buffer subroutines, structure of 66 
buffer subsection 51-53 

CALL macro instruction 7 

CALL statement 7 

calling program 7,23,14 

CANCEL key 34,39,41-42 

CANCEL Key routine 34,41-42 

chaining 12 , 13 

character generator 23,26 

characters 22,114-115 

CNVRT 46-47 

COMAREA (see communication area) 

communication area 

creation of 20,110 

information from 118 

termination of 22,110 

use of 11 
communication between 2250 operator and 

GSP program 34-43 
control blocks 

accessing 13 

chaining 13,12 

creation and termination 110 

formats of 110-118 

main storage arrangements 1 1 

names of 8,10-11,110 

relationship 12-13 

validity 1 3 
control flow among 

GSP routines 7-8 

image generation subroutines 2 3-24 

initiation and termination 
subroutines 15-16 
converting coordinates 46-47 
converting real numbers to integer 56-58 
correlation values 

passing to internal routines 2 3 

storing by GSP 10,23,54-56 

use in inserting a cursor 33 

use in locating a key 56 

use in resetting 30-32 

verifying validity of 27,45 
CRATL 34-36 

current data mode 30,46,115 
cursor subroutines 33 
cycle (data generation) 61 

data 

absolute 22,32,61,62 
incremental 22,61,62 
input 22 

integer 22,46-47,56-57 
limits 22-23,57-58 
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modes of 22-23,115 

optimized 22,61,62 

output 22,25,58 

raster unit conversion 46-47 

real 22,46-47,56-58 

scaling of 56-58 

scissoring of 57-58 
data control block 

creation 20,110 

description 10 

freed 21-22,110 
data event control block 

construction 20,48,50,110 

description 1 1 

freed 48,50,110 
data generation 60-62 
data storing 60,62-64 
DCB (see data control block) 
DECB (see data event control block) 
direct generation of graphic orders 45-46 
Director 

Part 1 7-8,15-17 

Part 2 7-8,15-18 
DFSTR 44-45 
DSATN 37,35 

ENATL 36-37,35 
ENATN 37,35 
END key 39,41-42,118 
end- order- sequence 

attention 39,40,117,118 

order 27,39 
ENSEQ 28 
ENSUB 28 
ENTRK 43 
equivalent GDS 

chaining 13,12 

creating 20-21 

execution of 29 
EXEC 29 
external references 7,8,9-10,23 

FCT (see flow control table) 
flow control entry 47-50 
flow control management 47-50 
flow control structure 47-50,20 
flow control table 47-50,20,22 
forms of data 22 
formats of 

buffer control table 50-52 

flow control table 47-48 

GSP control blocks 110-118 

key table 54 

status table 19 
formulas used in scaling 58 
FORTRAN library 7 
FSMOD 32 
functions (GSP status information) 43-44 

GACB (see graphic attention control block) 

GAM (see graphics access method) 

GDOA (see graphic data output area) 

GDS (see graphic data set) 

GDSCB (see graphic data set control block) 

graphic attention control block 

creation 20,110 

description 10,115,116 

freed 21-22,110 



graphic data output area 

description 11,68 

establishing 21 

freed 21-22,46 

storing data in 60-64,45-46 

writing to buffer 29,64 
graphic data set 20-21 
graphic data set control block 

description 10,113-115 

establishing 20-21,110 

termination 21-22,110 
graphics access method (GAM) 14 
graphic subroutine package control block 

construction 17,110 

description 8,110-112 

initialization 19 

termination 17-18,110 
graphic terminal control block 

creation 20,110 

description 10,112-113 

termination 21-22,110 
GSPCB (see graphic subroutine package 

control block) 
GSPRD 33-34 
GTMCB (see graphic terminal control block) 

hierarchy of ATLCBs 34,36,41 

ICURS 33 

IDPOS 32 

image control subroutines 29-32 

image generation subroutines 23-2 7 

image identification subroutines 27-29 

inactive attention levels 36,37,38 

INCL 30 

include 

structure 30,27,2 8,45,46,62,65-67 
incremental data 22,61,62 
INDEV 20 
indicator 

lights 39-40,36,37,41,117-118 
INGDS 20-21 
INGSP 

Part 1 17 

Part 2 19-20 
initialization 13 
initiation 15 

initiation subroutines 19-21 
input data mode 22 
input to many GSP subroutines 8 
insert a cursor 33 
integer data 22,46-47,56-57 
internal director 18-19 
ITBP 43-44 
ITRC 43-44 
ITST 43-44 

key entries 54-56 

key table 54-56,10 

key table management 54-56 

keyboard input and buffer data analysis 

subroutines 32-34 
keying and correlating features 7,54 
keys 54-56,23,27-31,45-46 



light pen 
attention 
disabling 



37-40,42-43,117,118 
37 
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enabling 37-38 

locating position of 42 

subroutines 42-43 
line segments 26 
lines 25 

link library 7,44 
LINK macro instruction 7,14,19 
linkage for 

GSP modules 8,19,119-121 

image generation subroutines 23-24 

initiation and termination 
subroutines 15-16 
LKSUB 29 

LOAD macro instruction 7,14,19,44 
location of GSP routines 7 
LOCPN 42 

macro instructions 

Graphics Access Method (GAM) 14 

operating system 14 

used by GSP 14 
MLITS 39-40 
MLPEO 40-41 
module description 15 
module directory 119-121 
module name 15,119-121 
MPATL 4 1 

multiple buffer sections 51,52,53 
multiple requests 61,62,65 
MVPOS 25 

null variable 18,19,110 

OACB (see output area control block) 
OMIT 30 

omit structure 30,27,28,45,46,62,65-67 
operations performed by all GSP 

routines 13-14 
optimal mode 61 

option definition subroutines 22-23 
ORGDS 32 
ORGEN 45-46 
output 

absolute 22,61,62 

incremental 22,61,62 

optimized 22,61,62 
output area control block 

description 10,116-117 

establishing 20-21 

freed 21,46 
output from image generation 

subroutines 23 
overflow function 6 3 
overlay code 39 

panic GACB 10,20,116 

Panic Key routine 41-42 

parameter error 13 

parameter list 7,8,2 3 

passing control 7-8,23 

passing return codes 14 

PLINE 2 5 

PLSTR 45 

points 25 

PPNT 25 

programmed function keyboard 

attention information 3 8,39 

indicator 



lights 39-40,36,37,41,117-118 
PSGMT 26 
PTEXT 26-27 

RCURS 33 

RDTRK 43 

real data 22,46-47,56-58 

reenterable coding 7 

relationship of 

control blocks 12,13,35 

GSP routines 8,9-10,16,24,35 
remove a cursor 33 
reordering the FCT 4 8,32 
RESET 30-32 

resident modules 7,15,17-18 
resolving of addresses in 

buffer 63-64 

GDOA 63-64 

ORGEN 46 
return code array 13,111,18 
return codes 

in GSPARRAY 14,18,111 

in register 15 14 

passed by Scissoring 106 

structure 14,111 
RETURN macro instruction 14 
returning control 7,13,14,15,23 
RQATN 3 8-39 
RTBP 43-44 

SALRM 42 

scaling formulas 5 8 

scaling routine 56-58 

SCHAM 22 

scissoring examples 59 

scissoring limits 57,115 

Scissoring routine 57-59 

SDATL 22 

SDATM 22 

segments (see line segments) 

sequences 

creation of 27-28 

structure of 67 
set mode order 32,30,46,68 
SGDSL 22-23 
SGRAM 22 

shared GDS (see equivalent GDS) 
single requests 61,62,65 
SLPAT 37-38 
SSCIS 22 

status information functions 43-44 
status table 

accessed 7,8 

deleted 17 

description 18-19 

loaded 19 

using 15 
STEOS 27 
STPOS 2 5 
stroke table 

description 44-45 

deleted 17 
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